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000001 


TITLE 

DCMVA,* 78072500* MLCP LINE ADAPTER TEST 

000002 

* 



000003 

★ 



000004 

★ 

DESCRIPTION: 


000005 

★ 



000006 

★ 

THIS T&V PROGRAM VERIFIES PROPER OPERATION OF THE LEVEL 6 COMM LINE 

000007 

★ 

ADAPTERS, WHICH ARE ATTACHMENTS TO THE MULTILINE COMMUNICATION PTOCESSOR. 

000003 

★ 



000009 

* 

THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAM ARE: 

000010 

* 



000011 

★ 

ML C 9 1 01 

MULTILINE COMMUNICATION PROCESSOR 

000012 

★ 

MLC9102 

MULTILINE COMMUNICATION PROCESSOR 

000013 

* 

MLC9103 

MULTILINE COMMUNICATION. PROCESSOR 

000014 

★ 



000015 

★ 

DCM9101 

DUAL ASYCHRONOUS ADAPTER 

000016 

* 

DCM9102 

SINGLE ASYCHRONOUS ADAPTER 

000017 

* 

DCM9103 

DUAL SYNCHRONOUS ADAPTER 

000018 

* 

DCM9104 

SINGLE SYNCHRONOUS ADAPTER 

000019 

★ 

DCM9105 

SINGLE WIDEBAND CURRENT MODE SYNCHRONOUS ADAPTER 

000020 

* 

DCM9108 

SINGLE WIDEBAND BALANCED LINE SYNCHRONOUS ADAPTER 

000021 

* 

DCM9109 

SINGLE MIL 188 C SYNCHRONOUS ADAPTER 

000022 

* 

DCM91 1 1 

SINGLE CURRENT LOOP ASYNCHRONOUS ADAPTER 

000023 

★ 

DCM91 14 

DUAL CURRENT LOOP ASYNCHRONOUS ADAPTER 

000024 

★ 



000025 

* 

REVISION HISTORY: 

000026 

★ 



000027 

* 

REV 

DATE 

000028 

* 

A 

JULY 76 ORIGINAL RELEASE 

000029 

* 

B 

AUG 76 

000030 

* 

C 

SEPT 76 

000031 

* 

D 

DEC 76 

000032 

* 

E 

MAR 7 7 

000033 

* 

F 

MAY 77 

000034 

* 

G 

JULY 77 

000035 

* 

H 

OCT 77 

000036 


V A 

AUG 7 8 

000037 

★ 



000038 

****************************************************************************** 

000039 

* 

THIS DOCUMENT AND THE INFORMATION CONTAINED 

000040 

★ 

THEREIN IS 

CONFIDENTIAL AND PROPRIETARY TO AND THE 

000041 

★ 

EXCLUSIVE 

PROPERTY OF HONEYWELL INFORMATION 

000042 

* 

SYSTEMS INC 

. IT IS MADE AVAILABLE ONLY TO HONEY- 

000043 

* 

WELL AUTHORIZED RECIPIENTS FOR THEIR USE SOLELY IN 

000044 

* 

THE MAINTENANCE AND OPERATION OF HONEYWELL 

000045 

* 

PRODUCT S. 

THIS DOCUMENT AND INFORMATION MUST BE 
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000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 

000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 


* MAINTAINED IN STRICTEST CONFIDENCE; IT MOST NOT 

* BE REPRODUCED IN WHOLE OR IN PART; AND IT SHALL 

* NOT BE DISCLOSED TO ANY OTHER PARTY WITHOUT THE 

* PRIOR WRITTEN CONSENT OF HONEYWELL. 

* 

* PROGRAM PREPARATION: 


* THE ROOT SOURCE OF THIS PROGRAM* AFTER THE ADDITION OF APPROPRIATE 

* TITLE AND END STATEMENTS* WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 

* TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 

* AND LISTING. THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST RESIDENT 

* LINKER USING THE APPROPRIATE CONSOLE ZVSLIB LIBRARY TO CREATE A PUNCH 

* SEGMENT CONTAINING AN EXECUTABLE MODULE. THE ASSEMBLY LISTING WAS 

* AUGMENTED WITH CROSS REFERENCE DATA PLUS THE LOAD MAP FROM THE LINKER 

* TO CREATE A LIST SEGMENT. 

* 

★ ROOT SAF LAF 

★ NAME DC M X1 DCMS1 DCML1 

★ DOCUMENT ★ *★SPE C IAL ★★★SPECIAL ★★★SPECIAL 


* PROGRAM DISTRIBUTION: 


* THE ELEMENTARY ITEMS SUBMITTED TO THE T&V PROGRAM DISTRIBUTION CENTER 

* WERE THE EXECUTABLE PUNCHED CARD DECKS OF DCMSl AND DCML 1 * AND MAGNETIC 

* TAPE IMAGES OF THE AUGMENTED LISTINGS. 

* 

★ REPRODUCTIONS OF THE EXECUTABLE CARD DECKS MAY BE AS DUPLICATE CARD DECKS 

★ OR AS MEMBER "VL" OF A MULTIPLE MEMBER FILE. IN THE MOST FREQUENT CASE 

★ IT WILL BE FOUND AS MEMBER VL WITHIN FILE PROGFILE OF A DISKETTE VOLUME 

★ ENTITLED DIAGS. 

★ 

★ DISTRIBUTION OF THE LISTINGS* WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 

★ MAINTENANCE OR REPAIR IS TO BE PERFORMED* IS NORMALLY MADE AS A 

★ PRINTED COPY. 


* ROUTINE DEMONSTRATION: # 

* 

* X 

* A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY BE OBTAINED BY 

* ANSWERING TH QUESTION ‘NEXT* WITH AN 'A* AND COMPLETING ONE PASS. 


★ MAIN MEMORY REQUIREMENT: 

* 






TITLE DCMVA 


07/28/78 1733.9 edt Fri 


HRS ASSEMBLER 5.05 


PAGE 0003 


000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
0001 1 3 
000114 
000115 
000116 
0001 1 7 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
GOO 130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 


★ 

* THIS PROGRAM REQUIRES 8K WORDS OF MAIN MEMORY AND WILL USE 

* ALL OF AVAILABLE MEMORY THROUGH 8K WORDS. 




lr 


********************** 


★ 

* TEST PROCEEDURE 

* 


* BEFORE RUNNING THE CLA TEST# THE MOTHER BOARD TEST <MLCSi#MLCL1) 

* SHOULD BE RUN TO MAKE SURE THE MLCP IS OPERATING CORRECTLY. 

* 

* THE PROGRAM AUTOMATICALLY TEST ALL CLA*S WHICH ARE LISTED ABOVE 

* UNDER DESCRIPTION. IT PROCEEDS TO EXERCISE ALL THE LINE ADAPTER 

* FUNCTIONAL TESTS IN LOOP BACK MODE. 

* 

* THE TESTS ARE SET UP SO THAT ALL THE CLA'S ARE TESTED ACCORDING TO A 

* PARTICULAR FUNCTION. SOME OF THE FUNCTIONAL TESTS INCLUDE CHARACTER 

* SIZE TEST# LINE SPEED TEST# PARITY AND CRC TEST# AND UNDERRUN AND 

* OVERRRN TEST. 


* OPERATING INSTRUCTIONS 


* LOAD AND START (OR RESTART) THE PROGRAM. THE PROGRAM IDENT IFICAT10N WILL 

* BE DISPLAYED ON THE CONSOLE. THE INITIAL START WILL ALSO DISPLAY: 

* 

* THE Z V$LI B REVISION NUMBER 

* THE ADDRESS FORM (SAF OR LAF) 

* I/O EQUIPMENT DETECTED IN THE SYSTEM 

* MEMORY SIZE 

* 

* THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. THIS DISPLAY IS OMITTED 

* ON RESTARTS. 

* 

* THE CONSOLE SEARCH RULES ARE: FIND THE CONSOLE WITH THE LOWEST CHANNEL 

* NUMBER CONNECTED THRU AN MDC CONTROLLER. IF THERE IS NO CONSOLE ON AN 

* MDC# THEN SEARCH FOR A TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 

* TO AN A C L A ADAPTER ON AN ML C CONTROLLER. IF NO ASYNC ADAPTER IS FOUND# 

* THEN GO TO THE FULL CONTROL PANEL. 

* 

* THERE ARE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO- 

* CATION "ZVSTTY". 

* 

* IF ZVSTTY EQUALS (0000)# SEARCH FOR A CONSOLE. 

* IF ZVSTTY EQUALS (FFFF)# ASSUME THERE IS NO CONSOLE. 
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000144 

★ 

IF ZVSTTY EQUALS NEITHER (0000)# NOR ( F F F F ) # THEN IT IS THE 

CONSOLE 

CHAN- 

000145 

* 

NEL NUMBER. 

NOTE: DEFAULT 

IS TO SEARCH FOR A CONSOLE. 



000146 

★ 







000147 

★ 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLE IS ON MLC# IT MUST BE 

ASYNC 

000148 

★ 

AND THE 

BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED 

RATE. 

IF IT 

000149 

★ 

IS NECESSARY TO CHANGE THE PROGRAM BAUD RATE# THEN THE NEW BAUD 

RATE 

000150 

* 

CODE SHOULD BE 

PUT INTO LOCATION "ZVSBUD" IN HEX. THE TERMINAL BAUD 

RATE 

000151 

★ 

MUST BE 

SET 

TO MATCH THIS 

NEW BAUD RATE. THE CORRECT HEX 

VALUE MAY BE 

000152 

★ 

OBTAINED 

FROM 

THE FOLLOWING 

TABLE. 



000153 

* 







000154 

*- 







000155 

* 




* 



000156 

★ 

BAUD 

RATE 

table 

* 



000157 

★ 




* 



000158 

* - 







000159 

* 

AC LA I.D. 


(2118X2110) 

(2108) 



000160 

★ 

BAUD-RATE 






000161 

★ 

50 


0 

1 



000162 

* 

75 


1 

2 



000163 

* 

110 


2 

3 



000164 

* 

134 


3 

4 



000165 

★ 

150 


4 

5 



000166 

★ 

200 


5 

— 



000167 

* 

300 


6 

6 



000168 

★ 

600 


7 

7 



000169 

* 

900 


— 

8 



000170 

★ 

1050 


8 

— 



000171 

* 

1200 


9 

9 



000172 

* 

1800 


10 (A) 

10 (A) 



000173 

★ 

2000 


11 (8) 

— 



000174 

★ 

2400 


12 (C) 

11 (8) 



000175 

* 

3600 


— 

12 (C) 



000176 

★ 

4800 


13 (0) 

13 (D) 



000177 

* 

7200 


— 

14 (£) 



000178 

★ 

9600 


14 (E) 

15 (F) 



000179 

★ 

19 200 


15 (F) 

— 



000180 

* 







000181 

★ 

TO MAKE 

ANY OF 

THE ABOVE CHANGES# LOAD AND HALT THE PROGRAM 

BEFORE 

EX- 

000182 

* 

ECUTION. 

INSERT CHANGE THEN 

EXECUTE. MEMORY LOCATIONS OF " 

ZVSTTY’* 

AND 

000183 ' 

★ 

” Z V $ 8 U D ” 

MAY BE FOUND IN MAP 

AT END OF LISTING. 



000184 

★ 

CONSUL T 

LEVEL- 

6 T&V MANUAL " 

A W 9 4 ” FOR DETAILS ON HOW TO LOAD 

THE TESTS. 

000185 

★ 







000186 

★ 

THE FOLLOWING 

IS A TYPICAL RESULT OF LOADING AND STARTING 

TO RUN 

THE 

000187 

★ 

PROGRAM. 






000188 

★ 







000189 

★ 

CLA TEST 

<PGM 

NAME> <PGM D A TE> <PGM REV> 



000190 

* 

Z VSL IB REV. 6. 

0 




000191 

* 

Z VS A F = 1 

< 2 > 





000192 

* 

WDT 







( 
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000193 

* 

CHAN 

DEVC 

ID 

000194 

★ 

0400 

DSKT 

2010 

000195 

* 

0480 

DSKT 

201 0 

000196 

* 

0580 

C DR 

2008 

000197 

* 

1200 

DISC 

2330 

000198 

* 

1280 

DISC 

2330 

000199 

* 

1300 

LPT 

2000 

000200 

* 

1380 

CONS 

2019 

000201 

* 

MEMORY 

LOW 

00002B2D 

000202 

* 

MEMORY 

HIGH 

00003FF F 

000203 

A 





000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
•00021 9 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 


*U 

*# 


16K 

THE PROGRAM WILL THEN ASK: 

POWER LINE FREQ, ?: 

THE OPERATOR NOW ENTERS THE POWER LINE FREQUENCY IN DECIMAL 
FOLLOWED BY A CARRIAGE RETURN* THE DEFAULT IS 60 HERTZ* 

IF THIS IS DESIRED A CARRIAGE RETURN IS ENTERED, 

NEXT THE PROGRAM WILL DISPLAY: 

CLA CHANNEL(S) ?: 

AT THIS TIME THE CHANNEL(S) OF THE LINE<S) YOU WANT 
TO TEST SHOULD BE ENTERED*FOLLOWED BY A CARRIAGE RETURN. 

THE CLA CHANNEL(S) WILL NORMALLY BE DISPLAYED AS AN ITEM(S) IN THE 
CONFIGURATION PRINTOUT, 

THE PROGRAM WILL THEN RESPOND WITH: 

NEXT ?: 

THE OPERATOR HAS TO ENTER ONE Of THE FOLLOWING LETTERS: 

**A” - RUN LINE(S) WITH INTERNAL LOOP TESTS 

"C" - RUN LINE(S) WITH CONNECTOR LOOP TESTS 

”D" - RUN LINE(S) WITH DIRRECT CONNECT LOOP TESTS 

"M" - RUN LINE(S) WITH MODEM LOOPBACK TESTS* USE EXTERNAL CLOCK 

"L" - RUN ECHO BACK CCP 

IN ORDER TO RUN WITH "C" SELECTED* AN EXTERNAL LOOP CONNECTOR 
MUST BE ATTACHED TO THE LINE ADAPTERCS) EITHER AT THE 
LINE ADAPTER CONNECTOR OF THE END OF THE CABLE. THE REQUIRED 
EXTERNAL LOOP CONNECTOR AND INSTRUCTIONS FOR ITS USE ARE 
DESCRIBED IN EACH LINE ADAPTER'S PRODUCT MANUAL. 
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0002A 2 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 


* 

* TO TEST A DIRECT CONNECT LINK# FUNCTION "D" MUST BE ENTERED 4 ^ 

* ON THE SYSTEM THAT SUPPLIES THE CLOCK FOR THE LINK, PRIOR TO THAT 

* TIME# "L” MUST BE ENTERED ON THE OTHER SYSTEM, 

* 

* "M" MODE OF OPERATION IS DESIGNED TO WORK CORRECTLY WITH 

* PARADYNE LSI 96 MODEMS, THESE MODEMS MUST HAVE STRUPS C & D INSERTED 

* PRIOR TO EXECUTING THIS TEST# THE LOCAL OR REMOTE MODEM MUST BE 

* PLACED INTO LOOPBACK MODE. 


* IF THERE IS NO CONSOLE PRESENT REFER TO "SERIES 60 

* LEVEL 6 MODEL 34/36 T & V OPERATING INSTRUCTION 

* MANUAL" ORDER NO. FL39 FOR INSTRUCTIONS ON ENTERING DATA 

* AND INTERPRETING PROGRAM MESSAGES. 

* 

* THE PROGRAM WILL RUN APPROXOMATELY 1 MINUTE PER ASYNCHRONOUS LINE AND 

* 30 SECONDS PER SYNCHRONOUS LINE. 

* 

♦ DURING THE LINE SPEED TEST THE PROGRAM WILL PRINT OUT THE SPEED AT WHICH 

★ THE SYNCHRONOUS LINE(S) ARE TESTED AT WITHIN 3% OF THE ACTUAL SPEED, 

* ASYNCHRONOUS LINE(S) ARE TESTED AT ALL SELECTABLE BAUD RATES. 

* 

* IF THERE ARE NO FAULTS. IT WILL THEN DISPLAY: 

* 

* PAS S 

★ 

* THE PROGRAM WILL CONTINUE AND TYPE "PASS" WITH NO HALTS BETWEEN PASSES. 

* TO RESTART: START THE PROGRAM AT HEX 100 


* ERROR REPORTS 

•k 

* ERRORS WILL CAUSE THE PROGRAM TO HALT. AN ERROR MESSAGE WILL 

* BE DISPLAYED IF A CONSOLE IS PRESENT. 

* 

★ ERROR DISPLAYS ARE AS FOLLOWS: 

★ 

* ERR XXYP 3 ZZZZ 

* ,4 

* 87 B6 B 5 B 4 B3 B2 B1 I 

* R7R6R5R4R3R2R1M % 

* 

* XX = MB (MOTHER BOARD) OR DB(DAUGHTER BOARD) 

* Y = TEST TYPE 

* P = LINE NUMBER 

* ZZZZ = ERROR LOCATION IN LISTING. HAS COMMENT 

* GIVING FAILING F UNT ION. 

* 
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C00291 

* 

B1-B7, l, R1-R7, M ARE 

CONTENTS OF REGISTERS, 

000292 

* 

I NT E RPERT AT I ON OF THESE 

IS FOR SPECIALIST USAGE. 

000293 

* 



000294 

* 

IN ALL CASES: 


000295 

* 



000296 

* 

R3 = CHANNEL NUMBER 


000297 

* 



000298 

* 

IN GENERAL 


000299 

* 



000300 

* 

R6 = SHOULD BE DATA 


000301 

* 

R 5 = ACTUAL DATA 


000302 

★ 

R7 = WORD NUMBER IN 

BLOCK TRANSFER 

000303 

★ 



000304 

* 



000305 

*** ** 

**************************** 
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000306 




/ 


000307 


0000 


ZERO 

EQU 

000308 





XLOC 

000309 





XLOC 

000310 





XLOC 

000311 





XLOC 

000312 





XLOC 

000313 

OOFF 




ORG 

000314 

OOFF 

0000 


STOP 

HLT 

000315 




★ 


000316 




★ 


000317 




* 


000318 


0100 


STRT 

EQU 

000319 

0100 

Of 8C 



B 

000320 

0105 




ORG 

000321 





CALL 


0105 

FBFO 0001 





0107 

D380 0000 

X 



000322 

0109 

8700 0000 

X 


CL 

000323 

0108 

OF 87 



B 

000324 




S TP 

CALL 


010C 

FBCO 0003 





010E 

D380 0000 

X 




0110 

OF 80 





0111 

1349 




000325 

0112 

8980 1 1 5 D 


NTYR 

CMZ 

000326 

0114 

09 AC 



BN E 

000327 




★ 


000328 




* 


000329 




* 


000330 

011 5 

8C51 



STS 

000331 

0116 

82D1 



LB 


0117 

2000 




000332 

0118 

05 OD 



BBT 

000333 . 





CALL 


0119 

FB CO 0003 





0119 

D380 0000 

X 




01 1 D 

OF 80 





01 1 E 

1 3 7£ 




000334 





CALL 


01 1 F 

FBCO 0003 





0121 

D3 80 0000 

X 




01 23 

OF 80 





0124 

1 1 5 F 




000335 




* 


000336 




★ 


000337 




★ 


000338 

0125 

8756 


CP40 

CL 


$ 

ZHNTSA/ZHTH15*ZV$HR 
ZHISAZ,ZHIAFB 
ZHWDTC, Z.HRTCC* ZVSTTY 
ZHRTCI#ZHRTCL 
ZHPF R,ZHCOMM 
ZERO+X* FF* 

NO ERROR FOUND IN MLCC 
OPERATOR MUST ENTER CLA ADDRESS 
S 


> S T P 

BRANCH TO NORMAL RUN 

ZERO+X*105* 


ZV$RD.ZV$IZ 

INITIALIZE FOR NON-CONSOLE USE 

<Z V $ T T Y 

CLEAR CONSOLE CHANNEL 

>NT Y R 


ZVSRD/MESG 



< F W F G 
>EDL INT 

ASK FOR POWER LINE FREQ. 

=$R1 ASK ONLY ON 6/36 AND 3/34 

= $R1*= Z * 2000* 

> C P 4 0 

ZVIQC/MESG9 


ZV$ID,HRTZ 


FIND NUMBER OF MILSEC. IN RTC TICK 
= $R 6 



4 "' 


( 
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000339 

0126 

F870 

C350 



L DR 

SR 7/ =Z * C 350 ' 

000340 

0128 

F 3 00 

11 5F 



D I V 

$R7,<HRTZ 

000341 

01 2 A 

E F 00 

11 6B 



STR 

SR6,<TLOC 

000342 

01 2 C 

87 56 




CL 

= $R6 

000343 

01 2 D 

F 3 70 

0064 



D I V 

$R7,=100 

000344 

01 2 F 

F F 00 

1 1 57 



STR 

SR7,<DIV1 

000345 

0131 

70 DO 




DOR 

SR7,16 

000346 

0132 

F 3 70 

OOOA 



DIV 

$ R 7 / = 1 0 

000347 

01 34 

F F 00 

1158 



STR 

SR7,<DIV2 

000348 

0136 

E F 00 

1159 



STR 

SR6* <DIV3 

000349 

0138 

8756 




CL 

= $R 6 

000350 

0139 

F 8 00 

1 1 6B 



L DR 

SR7,<TLOC 

000351 

013B 

7F0A 




ML V 

$R7,=10 

000352 

0 1 3 C 

F 3 00 

1 1 5 F 



DIV 

SR 7* <H R T Z 

000353 

01 3 E 

F F 00 

11 5A 



STR 

$R7,<DIV4 

000354 





* 



000355 





★ 



000356 





* 



000357 





* 



000358 





★ 


INITIALIZE THE ACTIVE LINE TABLE 

000359 





★ 


INITIALIZE THE LINE ADDRESS TABLE 

000360 





* 



000361 





EDL INT 

CALL 

ZV$F,ATLT,CPFLG+3,C16 


0140 

FBCO 

0003 






0142 

D380 

0000 

X 





0144 

OF 80 







0145 

1 1 CB 







0146 

1 1 DF 







0147 

12A5 






000362 

0148 

FE 00 

1 1 4F 



SWR 

$R7/<CHANL 

000363 






CALL 

ZVSQC/MESG7 


01 4 A 

FBCO 

0003 






01 4 C 

D 3 80 

0000 

X 





01 4 E 

0 F 80 







01 4 F 

1373 






000364 






CALL 

ZV$IH,ADDRS,C8 


01 50 

FBCO 

0003 






0152 

D 3 80 

0000 

X 





0154 

0 F 80 







0155 

1 1 03 







0156 

12 A4 






000365 

0157 

87 52 




CL 

= $R 2 CLEAR INDEX 

000366 

01 58 

AB 80 

11 D3 



LAB 

$B2,<ADDRS LOAD $B2 WITH ADDRESS OF ACTIVE LINE TABLE 

000367 

01 5 A 

CB80 

12A8 



LAB 

$B4,<TSAl SET UP FOR TRAP ON 

000368 

01 5C 

C F 80 

0000 

X 


STB 

$B4,<ZHNTSA UN AVA IL IA8LE RESOURCE 

000369 

015E 

C B 80 

0192 



LAB 

$B4,<N0DEVF 

000370 

0160 

C F 80 

0000 

X 


STB 

$B4/<ZHTHl5 

000371 

0162 

986E 



SALT 

L DR 

SR 1 * SB2.+ SR 2 LOAD ADDRESS FROM TABLE 

000372 

0163 

1931 




BEZ 

SRI,>C0N3 
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000373 

0164 

95 70 

FFCO 



AND 

$R1,=Z*FFC0* 

STRIP CHANNEL WITH HEX FFCO 

000374 

0166 

9970 

03 CO 



CMR 

$R1,=X*3C0' 

COMPARE CHANNEL WITH HEX 3C0 

000375 

0168 

03 02 




BG 

>R C K 1 

BRANCH IF GREATER 

GOO 376 

0169 

OF 96 




B 

>DE V NF 

CHANNEL NUMBER TO SMALL 

000377 

016A 

1E 26 



RCK1 

ADV 

$R1, = X* 26* 

PUT FUNCTION IN 

000378 

016B 

8055 




10 

=$R5/-$Rl 

INPUT DEVICE NUMBER 


016C 

0051 







000379 

0160 

C855 




LDR 

SR4✓=$R 5 


000380 

01 6£ 

0570 

F F 00 



AND 

$R5,=Z* F F00 * 


000381 

01 70 

09 70 

2100 



CMR 

SR5*-Z*2100 * 

COMPARE DEVICE NUMBER RESPONSE 

000382 

0172 

0980 




BN E 

>D E VNF 


000383 

01 73 

8851 




LDR 

$R3,=$R1 

SET SR3 FOR INDEX OF LINE NUMBER 

000384 

0174 

B570 

03C0 



AND 

SR3,=X* 3C0' . 


000385 

01 76 

3047 




SOR 

$R3,7 


000386 

0177 

C F 30 

1 1 CB 



STR 

$R4,<ATLT.$R3 

STORE ID INTO ACTIVE LINE TABLE 

000387 

0179 

95 70 

FC 00 



AND 

$R1/=Z'FCOO* 


000388 

01 78 

9F00 

1 1 4 F 



STR 

SRI,<CHANL 


000389 

0170 

OF 80 

01 62 



B 

< S A L T 


000390 





★ 




000391 





DEVNF 

CALL 

Z VS T C^ERMGI 

MLC C NOT FOUND ON THIS ADDRESS 


01 7F 

F8C0 

0003 







0181 

03 80 

0000 

X 






0183 

OF 80 








0184 

1 3 AB 







000392 

0185 

8802 




DEC 

= $R 2 


000393 

0186 

9820 

11 D3 



LDR 

SRI* < AD D R S.SR 2 

STORE ADDRESS THAT FAILED 

000394 

0188 

9 F 00 

11 6B 


PDRS 

STR 

SRI✓CTLOC 


000395 






CALL 

ZVSTH^TLOC 

PRINT ADDRESS THAT FAIL 


01 8 A 

FB CO 

0003 







018C 

0380 

0000 

X 






01 8E 

OF 80 








01 8 F 

11 6B 







000396 

0190 

OF 80 

0140 



B 

< E D L IN T 


000397 





★ 




000398 

0192 

8755 



NOD E VF 

CL 

= $ R 5 

TRAP HANDLER ROUTINE 

000399 

0193 

0003 




RTT 



000400 





* 




000401 





* 




000402 





★ 




000403 





* 




000404 





* 

CHECK 

TO SEE IF THIS IS A CLA I CAN TEST 

000405 





★ 




000406 

0194 

8751 



C0N3 

CL 

= $R 1 

CLEAR INDEX 

000407 

0195 

A880 

11 C B 



LAB 

SB2 * <A TL T 


000408 

01 97 

9B80 

1 1 C4 



LAB 

SB1 # <81 TO 


000409 

0199 

2C F6 



CAR 

LDV 

SR2 # =-10 


000410 

019A 

C85E 



RON 

LDR 

$R4,$B2.+$Rl 


00041 1 

0198 

1 D09 




CMV 

SRI 


000412 

019C 

0910 




BE 

> C 0 N 3 A 




' V s 


o 



TITLE DCMVA 


PAGE 


0011 


000413 

000414 

000415 

000416 

000417 


000418 

000419 

000420 

000421 

000422 

000423 

000424 

000425 

000426 

000427 

000428 

000429 

000430 

000431 

000432 

000433 

000434 

000435 

000436 

000437 

000438 

000439 

000440 

000441 

000442 

000443 

000444 

000445 

000446 

000447 

000448 


000449 
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0190 

4970 




BEZ 

$R4 *>RON 


019E 

C921 



CYN 

CMR 

$R4,SB1* $R2 


01 9 F 

09 7A 




BE 

> C A R 


01 AO 

27 FE 




BINC 

$R2 / >C YN 







CALL 

Z V$ T C* E R MG2 


01 A1 

FBCO 

0003 






01 A3 

0380 

0000 

X 





01 A5 

OF 80 







01 A6 

1 3B8 







01 A7 

8801 




DEC 

= $R 1 


01 A8 

1007 




SOL 

$R1 ,7 


01 A 9 

9400 

1 1 4F 



OR 

$R 1 *<C H A NL 


01 AB 

OF OD 




B 

>PDR S 


01 AC 

2C F4 



CON 3 A 

LDV 

$R2,=-12 

NUMBER OF I/O TO BE CHANGED 

01 AO 

9800 

1103 



LOR 

$R1#<ADDRS 

LOAD $R1 WITH ADDRESS OF CLA ACTIVE 

01 AF 

OB 80 

1 1 49 



LAB 

$B5*<FID+1 

PUT ADDRESS OF CONTROL TABLE IN SB5 

0181 

C 8 70 

003F 


ALL 

LOR 

$R4,=X'3F* 

LOAD MASK TO CLEAR CHANNEL 

01B3 

95 70 

F C 00 



AND 

$ R1 * = Z'fCOO 4 

CLEAR SUBCH. & FUNCTION 

01 B 5 

C 5 25 




AND 

$R4,$85* $R2 

CLEAR CHANNEL 

0186 

94 54 




OR 

$R1,=$R4 

PUT CHANNEL NUMBER IN 

01 B7 

9F25 




STR 

$R1 ✓ $8 5 . $R2 

STORE IT BACK IN CONTROL TABLE 

0188 

27F9 




BINC 

$R2/>ALL 


01 B9 

8700 

1 1 65 



CL 

<PS F G 

CLEAR PRINT SYNC* SPEED FLAG 

01 BB 

8700 

11 5E 



CL 

<HG S PD 

CLEAR HIGH SPEED FLAG 

01 BD 

F 9 00 

1 1 4F 



CMR 

$R7/<C H ANL 

CHECK TO ONLY PRINT ONCE 

01 BF 

09 1C 




BE 

> IN V D 






★ 


PRINT FIRMWARE REV. 


01C0 

3001 




SOL 

$R3 / 1 

SHIFT $R3 TO ALIGN WITH CHANNEL NUMBER 

01 Cl 

C 3 80 

ODOA 



LNJ 

$B4,<G£NITZ 

INITIALIZE CONTROLLER 

01 C 3 

E 3 80 

0075 



LNJ 

SB6^<RDL CT 

READ LOCATION 1 IN LCT TO PRINT REV. 

01 C 5 

0000 




DC 

0 

ADDRESS 

01C6 

0002 




DC 

2 

RANGE 

01 C 7 

8780 

1173 



CLH 

<LC T V 


01C9 

C800 

1173 



LDR 

$R4,<LCTV 


01 C8 

C F 00 

1226 



STR 

$R4,<FRIMRV 

STORE FIRMWARE REV NUMBER 






CALL 

ZV$TC,FREV 


01C0 

FBCO 

0003 







01CF 0380 0000 X 

0101 OF 80 
0102 13 A1 

CALL ZV$TD,LCTV 

0103 FBCO 0003 
0105 D380 0000 

01D7 OF 80 
0108 1173 


X 
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000A 50 

0109 

8A80 

11 5D 



INC 

<FWFG 

SET FLAG 

TO INHIBIT PRINT OUT 


000 A 51 





★ 







000 A 52 





★ 


ASK WHAT MODE OF 

OPERATION 




000 A 53 





* 







000A5A 

0108 

FBC 0 

0003 


INVD 

CALL 

ZV$QC*ME SG6 






0100 

0380 

0000 

X 









01 DF 

OF 80 











01 E0 

1370 










000 A 5 5 

01 El 

FBCO 

0003 



CALL 

ZV$IA#TP2#TL0C 






01 E 3 

0380 

0000 

X 









01 E 5 

OF 80 











01 E6 

11 60 











01 E7 

1168 










000 A 56 

01 E 8 

7C08 




LDV 

$R7,=8 





000 A 5 7 

01 £9 

D380 

OD 63 



LNJ 

$85#<T OLAY 

DELAY 

FOR MLC CONSOLE 


000 A 58 

01 EB 

C 8 00 

1 1 68 



LDR 

$RA,<TLQC 





000 A 59 

01 E 0 

A0A8 




SOR 

IRA * 8 

SHIFT 

MODE TYPE ANSWER OVER 


000A60 












000A61 





*# 







000A62 

01 EE 

C F 00 

11 A9 



STR 

IRA*<TEST 

SAVE 

COMMAND CODE 


000 A 63 





*# 







000A6A 

000A65 

01 FO 

AD 53 



*## 

C MV 

IRA* =X * 53 * 

IF 4 

S * 

DO SHORT TEST ONLY 


000A66 

01 FI 

0900 

02 5 A 



BE 

<S H T S T 





000A67 

01 F3 

A D A3 




CMV 

IR A * = X 1 A3' 

IF * 

c • 

DO CABLE LOOP TEST ONLY 


000A68 
000 A 69 

01 FA 

0900 

0265 



BE 

<C A B LP 





000A 70 
000A71 

01 F6 

AD AO 




CMV 

IRA*=X* AD* 

IF * 

M * 

DO MODEM LOOPBACK TEST 


000A 7 2 

01 F7 

0900 

0265 



BE 

<CABLP 





000A73 

01 F9 

AD A A 




CMV 

IRA * X * A A * 

IF * 

0* 

DO DIRRECT CONNECT LOOP 

TEST 

000 A 7A 

01 FA 

0900 

0265 



BE 

CCABLP 





000 A 75 

01 FC 

AD AC 




CMV 

IRA/X* AC* 

IF ' 

L * 

EXECUTE ECHO BACK CCP 


000 A 76 

01 FO 

0900 

0228 



BE 

< L 0 0 P B K 





000A77 
000 A 78 

01 F F 

A D 50 



*# 

CMV 

IRA * =X 1 50' 

IF • 

P* 

GO TO PATCH ROUTINE 


000A 79 
000A80 

0200 

0900 

0222 



BE 

<PCH 





000A81 

0202 

A D A1 




CMV 

IR A * = X * A1* 

IF • 

A* 

DO INTERNAL LOOP TEST ONLY 

000A 82 

0203 

09D8 




BNE 

> I N V D 





000A 83 
000 ASA 

020A 

8700 

1 1 52 


* 

CL 

<C OU NT 





000A 85 

0206 

8700 

1 1 6 F 



CL 

< S H 0 R T 





000A86 

0208 

C 8 70 

C 7 1 A 


RTST 

LDR 

IR A * =Z ' C 7 1 A * 

STORE 

LINE CONTROL FOR INTERNAL 

LOOP 

000A 87 

02 OA 

C F 00 

1 2 DA 



STR 

IRA,<LC1LCR 





000 A 88 

020C 

A 3 80 

02 A6 



LNJ 

$B2*<LPT A 

TEST 

A; 

GO TO LOOP TEST 


000A 89 

02 OE 

A 3 80 

03 AA 



LNJ 

I82*<SPSYTC 

TEST 

B: 

GO TO LINE SPEED TEST 
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000490 

0210 

A3 80 

04 A 7 



LNJ 

$B2 * < AD R T ST 

TEST C: GO TO BART AND BARF TEST 

000491 

0212 

A3 80 

04E4 



LNJ 

$82/CCRPTB 

TEST 0: GO TO CRC AND PARITY TEST 

000492 

0214 

A3 80 

05 F8 



LNJ 

$82/ <CHSZ TO 

TEST E: GO TO CHARACTER SIZE TEST 

000493 

0216 

A 3 80 

067C 



LNJ 

$B2 * <ST B I TE 

TEST F: GO TO STOP BIT TEST 

000494 

0218 

A 3 80 

0705 



LNJ 

$B2/<PARERF 

TEST G; GO TO PARITY ERROR TEST 

000495 

021 A 

A 3 80 

0796 



LNJ 

$B2 * <S T I OG 

TEST H: GO TO STOP I/O TEST 

000496 

021C 

A 3 80 

0891 



LNJ 

SB2/CU0RNTH 

TEST J; GO TO OVERRUN AND UNDERRUN TEST 

000497 

0 2 1 E 

A 3 80 

OE 04 



LNJ 

$B2/<EDPCK 


000498 

0220 

OF 80 

0208 



B 

<RT ST 


000499 





* 




000500 





PCH 

CALL 

ZVSPCH 



0222 

FB FO 

0001 







0224 

03 80 

0000 

X 





000501 

0226 

0F 80 

01 D 8 



B 

< IN V D 


000502 









000503 









000504 

0228 

8 F 00 

1 1 9A 


LOO P BK 

SAVE 

<SAV3/=Z'0112' 

EXECUTE ECHO BACK CCP 


0 2 2 A 

01 12 







000505 

0228 

87 53 




CL 

= $R 3 


000506 

022C 

D3 80 

00 4 F 



LNJ 

$B5/<FLN 

FI NO LINE 

000507 

022E 

1 1 BO 




DC 

<SY N C 


000508 

0 2 2 F 

OF A3 




B 

>L0OPE R 

NO SYNC LINE RETURN 

000509 

0230 

C 3 80 

ODOA 



LNJ 

$B4/<GENITZ 

GENERAL INITIALIZATION 

000510 

0232 

C 5 70 

F F 80 



AND 

$R4/=Z * F F 80 * 

$R4 < CHANNEL NUMBER 

000511 

0234 

C4 70 

0040 



OR 

$R4/=X'40' 

OR IN DIRECTION BIT 

00051 2 

0236 

C F 00 

11 51 



STR 

$R4/<CHNZ 


000513 






CALL 

ZV$MLW/L0PCCP/L0PSZE/HX200/CHNZ LOAO CCP INTO MLCP 


0238 

F8C0 

0003 







0 2 3 A 

0380 

0000 

X 






023C 

0 F 80 








0230 

1 1 OF 








023E 

1133 








0 2 3 F 

12A6 








0240 

11 51 







000514 

0241 

0380 

0D3B 



LNJ 

$65/<S ETLCT 

SET UP LCT'S 

00051 5 

0243 

11 34 




DC 

<L0 P LC T 


000516 

0244 

C800 

1 1 3 F 



LOR 

$R4/<F0CC 

START I/O ON RECEIVE CHANNEL 

000517 

0246 

C 3 80 

0095 



LNJ 

$B4/<CGSCH 


000518 

0248 

8000 

11 C 5 



10 

<BIT1/=$R4 



0 2 4 A 

0054 







000 519 

0248 

0703 




BIOT 

>L00PB1 


000520 

024C 

F380 

ODBA 



LNJ 

$B7/<ERMB 

ERROR: I/O WAS NAK’0 

000521 

0 2 4 E 

0000 



LOOPB1 

HLT 



000522 






XL 0 C 

STR T 02 


000523 

0 2 4 F 

0380 

0000 

X 


LNJ 

$B5/<STRTD2 

START GOLOMP 

000524 

0251 

OF FO 




B 

>LOOPBl 


000525 

0252 

F 3 80 

ODBA 


LOOPER 

LNJ 

$B7/<E RMB 

ERROR: NOT SYNC LINE 

000526 









000527 





*UU 
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000528 




000529 

0254 

C870 

C 7 1 4 

000530 

0256 

C F 00 

12D4 

000531 

0258 

C F 00 

116F 

000532 

0 2 5 A 

A3 80 

02A6 

000533 

02 5 C 

A3 80 

034A 

000534 

02 5 E 

A3 80 

04E4 

000535 

0260 

A3 80 

0705 

000536 

0262 

A3 80 

OE 04 

000537 

0264 

OFFO 


000538 




000539 




000540 




000541 

0265 

8700 

114A 

000542 

0267 

8700 

11 4B 

000543 




000544 


o\ 


000545 

0269 

4C 8"r» 


000546 

0 26A 

C F 00 

1 1 52 

000547 

026C 

8700 

11 6F 

,000 548 

0 26 E 

C870 

C 3 1 4 

000549 

0270 

C F 00 

12D4 

000550 




000551 




000552 




000553 

0272 

A3 80 

0956 

000554 

0274 

4C32 


000555 

0275 

C F 00 

1 1 4C 

000556 

0277 

A3 80 

02A6 

000557 

0279 

8880 

11 4C 

000558 

027B 

8980 

1 1 AC 

000559 

027D 

09 FA 


000560 




000 5 61 




000562 

027E 

A3 80 

0 A1 C 

000563 

0280 

8880 

11 52 

000564 

0282 

8980 

1 1 52 

000565 

0284 

09 EA 


000566 




000567 




000568 

0285 

C800 

1 1 49 

000 569 

0287 

4D4D 


000570 

0288 

099B 


000571 





0289 

FB CO 

0003 


0283 

D 3 80 

0000 


028D 

OF 80 



028E 

1 1 4A 



028F 

1 3 DC 
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SHTST LOR 
STR 
STR 
LNJ 
LNJ 
LNJ 
LNJ 
LNJ 
8 

★ 

*u 

CABLP CL 
CL 

*# 

*un 

LDV 

STR 

CL 

RTST1 LOR 
STR 

* 

*uu 

*# 

LNJ 

LDV 

STR 

RTST3 LNJ 
DEC 
CM2 
BNE 
*U 

LNJ 

DEC 

CMZ 

BNE 

*UU 

LOR 

CMV 

BNE 

CALL 
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$R4,=Z * C 714 * 
$R4* <LC1LCR 
$R4*<SH0RT 
$B2 * <L P T A 
$82 *<SPS Y TC 
$B2#<C RP T8 
$B2*<PARERf 
$B2*<E DPCK 
>SHT ST 


STORE LINE CONTROL FOR INTERNAL LOOP 
SET FLAG 

TEST A: GO TO LOOP TEST 

TEST 8: LINE SPEED TEST TO SET HIGH SPEED FLA 
TEST D: CRC AND PARITY TEST 
TEST G: PARITY ERROR TEST 
PRINT PASS MESSAGE 


< M L X C T 
<ML E C T 

CLEAR 

MODEM LOOPBACK XMIT CTRS 


$R4,^ 


7 

/r 

$R4„<C0UtyT ^ 

<SHORT 


J 


$R4,=Z*C314* 
$R4,<LC1LCR 

STORE 

LINE CONTROL FOR CONNECTOR 

LOOP 


$82*<LPCBLK 

$R4,50 -- 

$R4,<C0UNT1 
$B2 * <L P T A 
<C0UNT1 
<C0UNT1^ 
>RTST3 


$82 # <X MMSL ' 

<C0UNT 

<C0UNT4K~~ 

> R T S T1 


TEST K z GO TO LOOP DSS IN DSC 


TEST A: GO TO LOOP DATA 


w, 3 


s o 


TEST L; GO TO XMIT MARK & SPACE TEST 



$R4,<TEST 
$R4 * X * 4 D 1 

>RTST2- BRANCH IF 

ZV$TH*ZV$TD,MLXCT,MLCTRL PRINT 


NOT MODEM LOOPBACK TEST 
ERROR SUMMARY 


<' 



\ .y 
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000572 





CALL 

ZV$T/MLMSGI 

1 





0290 

FB CO 

0003 





I 

.. 



0292 

D3 80 

0000 

X 



1 



A 


0294 

OF 80 










0295 

1 3 CB 









000573 





CALL 

ZVSTH. ZVSTO/MLECT 





0296 

FB CO 

0003 









0298 

D380 

0000 

X 








0 2 9 A 

OF 80 







■\ 



0 2 98 

1 1 48 







J 


000574 





CALL 

ZV$T,MLMSG2 

’ b, 

f , . ). 




029C 

FB CO 

0003 









029E 

D380 

0000 

X 








02 AO 

0 F 80 










0 2 A1 

1 3 08 









000575 

02A2 

OF C3 



8 

>CABLP 

. OtUL 

v " im v 

'{\ '**■ r & v>~n 

000576 




*# 







000577 







T Of 

;,w 



000578 

02 A3 

A3 80 

OE 04 

_R T S T 2 

LNJ 

$82/<E DP CK 





000579 

02 A 5 

OF CO 



B ' 

>C A BLP 

\~y K p 



000580 




★ 






000581 




* 







000582 




★ 


D A T V A LOOP TEST 





000583 




★ 







000584 

02A6 

C870 

4120 

LPT A 

LOR 

$R4,=A*A * 





000585 

02A8 

C F 00 

1 3A9 


STR 

$R4,<ERMG+1 





000586 

0 2 A A ' 

’ C 8 70 

0 F 1 8 


LOR 

$R4,=X * F 1 8* 

STORE FAST LINE SPEED 



000587 

02AC 

CF 00 

1203 


STR 

$R4/<LCT IS 





000588 

0 2 AE 

B3 80 

08A6 


LNJ 

$B3,<CL FG 

CLEAR ALL TEST FLAGS 




000 589 

02 80 

8700 

1160 


CL 

<MA SK 

SET MASK FOR ZV$C 



. 

000590 

02B2 

8700 

12 05 


CL 

<LC1SY F 

CLEAR SYNC. FLAG FOR 

ASYNC. 

LINES ; - 

000591 

0294 

7CC6 



LDV 

$R7,=6 

NUMBER OF 30 MS DELAY 



000592 




★ 






; | 

000593 




★ 


TEST ASYNCHRONOUS 

LINES WITH OLD BAUD RATES 



i \ 

000594 




* 


AT 9600 BAUD/ 

WITH 2 STOP BITS 




000595 




★ 







000596 

02B5 

9B80 

1 1 BA 


LAB 

$B1,<ASYN 

STORE ADDRESS OF LINE TYPE 



000597 

02B7 

B3 80 

0A8C 


LNJ 

$B3* <DT ALOP 

GO TO LOOP SUB-ROUTINE 



000598 

02B9 

OF 85 



B 

>T1 





000599 

0 2BA 

13 ID 



DC 

<WCP 1 

ADDRESS TABLE FOR BLOCK WRITE 


000600 

02 BB 

1 2 C F 



DC 

< L C T 1 

LCT TABLE 




000601 

02 BC 

00 3F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 




000602 

02 B 0 

11 E3 



DC 

< DOU T 

TRANSMIT BUFFER 




000603 




* 







000604 




★ 


TEST ASYNCHRONOUS 

LINES WITH NEW BAUD RATES 




000605 




* 


AT 19200 8 AU D * 

WITH 2 STOP BITS 




000606 




* 







000607 

02 BE 

9B80 

1 1 8B 

T1 

LAB 

$B1 * <A S Y N1 

LINE TYPE 




000608 

02 C 0 

B380 

0A8C 

T 1 A 

LNJ 

$B3/<0 T ALOP 
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000609 

02C 2 

OF 85 



B 

>T2A A 



000610 

02C 3 

1310 



DC 

<WCP1 



000611 

02C4 

1 2 C F 



OC 

< L C T 1 



000612 

02C5 

00 3 F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 


000613 

02C 6 

11 E3 



OC 

<0011T 

TRANSMIT BUFFER ADDRESS 


000614 




* 





000615 




* 


TEST CURRENT LOOP 

ASYNCHRONOUS 


000616 




* 





000617 

02 C7 

8980 

11 52 

T2A A 

CMZ 

<C 0 UNT 

IF CONNECTOR LOOP 


000618 

02C9 

0900 

02 C F 


BE 

<T2 

CHANGE SPEED TO TEST AT 

9600 BAUD 

00061 9 

02 C B 

C8 70 

OE 1 8 


LOR 

$R4 * =X'E 1 8 ' 



000620 

02C 0 

C F 00 

1203 


STR 

$R4,<LCT1 S 



000621 

02 C F 

C 8 71 


T 2 

LOR 

$R4 * +$ B 1 

LOAO ID TYPE INTO $R4 


000622 

0200 

C900 

1 1 BC 


CMR 

$R4 / <A S Y NC 

CHECK TO SEE IF ALREADY 

DONE 

000623 

0202 

0902 



BE 

>T 2 A 



000624 

0203 

OF EO 



B 

>T1 A 



000625 


02 04 


T2 A 

EQU 

$ 



000626 

0204 

8980 

1 1 6F 


CMZ 

<SH 0 RT 



000627 

0206 

09 BO 



BN E 

>NC BL 



000628 

0207 

C8 70 

0118 


LOR 

$R4,=X * 118* 

CHANGE BAUD RATE TO 50 


000629 

0209 

C F 00 

1 2 D 7 


STR 

$R4*<LCT1S 



000630 

0 2 0 B 

7C78 



LDV 

$R7,=120 

NUMBER OF 30 MS DELAY FOR DATA TRANSFER 

000631 




* 





000632 




★ 


TEST ASYNCHRONOUS 

LINES WITH OLD BAUD RATES 


000633 




* 


AT 50 BAUD/ WITH 2 STOP BITS 


000634 




* 





000635 

02 DC 

9B80 

11 BA 


LAB 

$B1,<ASYN 

LOAD LINE TYPE 

* 

000636 

02DE 

B380 

0A8C 


LNJ 

$B3 / <0 T A L OP 

LOOP TEST SUB-ROUTINE 


000637 

02E0 

OF 85 



B 

>T3 



000638 

02 El 

1310 



DC 

<WCP 1 

ADDRESS TABLE FOR BLOCK 

WRITE 

000639 

0 2 E 2 

1 2 C F 



OC 

<L C T 1 

LCT TABLE 


000640 

0 2 E 3 

0007 



DC 

7 

RANGE IN WORDS 


000641 

02E4 

11 F 3 



DC 

< D 0 U T 1 



000642 




* 





000643 




* 


TEST ASYNCHRONOUS 

LINES WITH NEW BAUD RATE 


000644 




* 


AT 50 BAUD* WITH 2 STOP BITS 


000645 




* 





000646 

02E5 

C8 70 

0018 

T 3 

LOR 

$R4,=X*18' 



000647 

02 E 7 

C F 00 

12D3 


STR 

$R4 * <L C T1 S 



000648 

0 2 E 9 

9B80 

1 1 BB 


LAB 

$B1 * < A S Y N1 

LOAD LINE TYPE 


000649 

02 E 8 

83 80 

0A8C 

T 3 A 

LNJ 

$B3*<DTALOP 

LOOP SUB-ROUTINE. 


000650 

02E0 

OF 85 



B 

>T4 



000651 

02EE 

1310 



DC 

<WCP1 



000652 

0 2 E F 

1 2 C F 



OC 

< L C T 1 



000653 

02 F0 

0007 



DC 

7 



000654 

02 FI 

11 F3 



DC 

< DO U T1 



000655 




* 





000656 




* 


TEST CURRENT LOOP 

ASYNCHRONOUS 


000657 




* 
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000658 

0 2 F 2 

C871 


T 4 

LOR 

$R4/+$B1 

LOAD ID TYPE INTO $R4 

000659 

02 F3 

C900 

11 BC 


CMR 

$R4,<ASYNC 

CHECK TO SEE IF ALREADY DONE 

000660 

0 2 F 5 

09 02 



BE 

>T4 A 


000661 

0 2 F 6 

OF F5 



B 

> T3 A 


000662 


02 F7 


T4 A 

EQU 

$ 


000663 

02 F7 

C800 

1 204 


LDR 

$R4,<LC1LCR 

CHECK LINE CONTROL FOR CONNECTOR LOOP 

000664 

02F9 

82 04 



LB 

= $R4, = Z *0400* 

IF CONNECTOR LOOP SET OIRECT CONNECT BIT 


02 FA 

0400 






000665 

0 2 F B 

05 OB 



BBT 

>NC BL 


000666 








000667 








000668 

02 F C 

C800 

1 149 


LOR 

$R4,<TE ST 


000669 

02 F E 

4 D 4 D 



C MV 

$R4 * X ' 4 D 4 


000670 

0 2 F F 

C870 

C 3 1 4 


LOR 

$ R 4/= Z 4 C 314 4 


000671 

0301 

0903 



BE 

>NC BLl 

DON'T SET DIRECT CONNECT IF MODEM LOOP 

000672 




*# 




000673 




*nn 




000674 

0302 

C870 

C B1 4 


LOR 

$R4,=Z 4 CB14 4 


000675 

0304 

C F 00 

1204 

NCBL 1 

STR 

$R4,<L C1LCR 


000676 

0306 

C 8 70 

3 A 1 8 

NCBL 

LDR 

$R4,=X 4 3A18 4 

PUT IN SYNC, CHARACTER TO TEST 

000677 

0308 

C F 00 

1203 


STR 

$R4/<LCT1S 

SYNC, LINE TYPES 

000678 

030A 

C870 

02 1 C 


LDR 

$ R/4 * = X 4 21 C 4 

SET LCT SYNC. FLAG 

000679 

030C 

C F 00 

1205 


STR 

$ R4/<L C1SYF 


000680 

030 E 

7C2D 



LOV 

$ R 7 * =4 5 

NUMBER OF 30 MS DELAY FOR 800 BAUD 

000681 








000682 








000683 

0 30 F 

C 8 00 

1149 


LDR 

$R4,<TEST 

REDUCE DELAY IF 4 D 4 OR 4 M 4 TEST 

000684 

0311 

4044 



CMV 

$R4 # X 4 4 4 4 


000685 

0312 

0903 



BE 

>NC BL2 


000686 

0313 

4 D 40 



CMV 

$ R 4 / X 4 4 0 4 


000687 

0314 

0982 



BNE 

>NC BL3 


000688 

0315 

7C04 


NCBL2 

LOV 

$R 7/=4 


000689 


03 16 


NCBL 3 

EQU 

$ 


000690 




*n 




000691 








000692 




* 




000693 




* 


TEST SYNCHRONOUS (3A 

AS SYNC, CHAR.) 

000694 




* 




000695 

0316 

96 80 

1 1 BO 


LAB 

$B1,<SYNC 

LOAD LINE TYPE 

000696 

0318 

B380 

0 A 8C 

Q A 1 

LNJ 

$B3#<DTAL0P 

LOOP SUB-ROUTINE 

000697 

0 31 A 

OF 85 



B 

>T5 


000698 

031 B 

13 10 



DC 

<WC PI 


000699 

03 1 C 

1 2 C F 



DC 

< L C T 1 


000700 

031 D 

00 2F 



DC 

(DFLT-D0UT1 ) 


000701 

031 E 

11 F 3 



DC 

< 0 0 U T1 


000702 




* 




000703 




* 


TEST BI-SYNCHRONOUS 

LINES (3 A AS SYNC. CHAR.) 

000704 




* 




000705 

031 F 

C871 


T 5 

LDR 

$R4/+$B1 

LOAD ID TYPE INTO $R4 
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000706 

0320 

C900 

1 1 BE 


C MR 

$R4# <B1S YNC 

CHECK TO SEE IF ALREADY DONE 

000707 

0322 

0902 



BE 

>T6 


000708 

0323 

OF F5 



B 

>Q A1 


000709 




★ 




000710 




★ 


TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR.) 

000711 




★ 




000712 

0324 

9B 80 

1 1 BF 

T 6 

LAB 

$81 * <S Y N188 

LOAD LINE TYPE 

000 71 3 

0326 

B380 

0A8C 


LNJ 

$B3* <0 T AL OP 

LOOP SUB-ROUTINE 

000714 

0328 

OF 85 



B 

>T7 


00071 5 

0329 

13 10 



DC 

<WCP1 


00071 6 

0 3 2 A 

1 2 C F 



OC 

<LC T 1 


00071 7 

0328 

002F 



DC 

<DFL T-D0UT1 ) 


000718 

032C 

11 F3 



OC 

<DOU T1 


000719 




★ 




000720 




★ 




000721 




* 


TEST WIDEBAND 301/303 

(3 A AS SYNC. CHARACTER) 

000722 




* 




000723 

0320 

9B80 

11 CO 

T 7 

LAB 

. $B1#<WDB3 

LOAD ADDRESS OF LINE TYPE 

000724 

0 3 2 F 

B3 80 

0 A 8C 

T7A 

LNJ 

$B3# <0 TALOP 

LOOP SUB-ROUTINE 

000725 

0331 

OF 85 



B 

>T2 9 A 


000726 

0332 

13 10 



OC 

<WCP1 


000727 

0333 

12 CF 



OC 

<LC T 1 


000728 

0334 

00 3F 



OC 

(DFLT-DOUT) 


000729 

0335 

11 E3 



OC 

<DOU T 


000730 




* 




000731 




* 


TEST BI-SYNC WIDEBAND 

301 /30.3 (3 A AS SYNC. CHARACTER) 

000732 




*. 




000733 

0336 

C871 


T29 A 

LOR 

$R4,+$B1 

LOAD ID TYPE INTO $R4 

000734 

0337 

C900 

1 1 Cl 


C MR 

$R4,<WDB3B 

CHECK TO SEE IF ALREADY DONE 

000735 

0339 

0902 



BE 

>T29 


000736 

033 A 

0 F F 5 



B 

>T7 A 


000737 




★ 




000738 




* 


TEST WIDEBAND V35 (3A 

AS SYNC. CHAR.) 

000739 




* 




000740 

0338 

9B80 

11 C 2 

T29 

LAB 

$B1#<W0BV35 

LOAD ADDRESS OF LINE TYPE 

000741 

0330 

B3 80 

0A8C 

T29Z 

LNJ 

$B3,<DTAL0P 


000742 

033F 

OF 85 



B 

>T 30 A 


000743 

0340 

13 10 



DC - 

<WCP1 


000744 

0341 

1 2 C F 



OC 

<LC T 1 


000 74 5 

0342 

003F 



OC 

(DFLT-DOUT) 


000746 

0343 

11 E3 



OC 

<00U T 


000 747 




* 




000748 




★ 


TEST BI-SYNC WIDEBAND 

V35 (3 A AS SYNC. CHARACTER) 

000749 




★ 




000750 

0344 

C871 


T 30 A 

LOR 

$R4 ✓ +$B 1 

LOAD ID TYPE INTO $R4 

000751 

0345 

C900 

1 1 C 3 


C MR 

$R4,<WDBV5B 

CHECK TO SEE IF ALREADY DONE 

000752 

0347 

09 02 



BE 

>T30 


000753 

0348 

OF F5 



B 

>T29Z 


000754 




* 
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000755 
000756 
000 757 
000758 
000759 
000760 


0349 8382 


T30 


JMP 


SB2 


JUMP OUT OF LOOP TEST 


000761 

03 4 A 

C 8 70 

4220 

000762 

03 4 C 

C F 00 

13A9 

000763 

0 3 4 E 

83 80 

0BA6 

000764 

0350 

C800 

11 5F 

000765 

0352 

4002 


000766 

0353 

4E F8 


000767 

0354 

C F 00 

1224 

000768 

0356 

4E 10 


000769 

0357 

C F 00 

1225 

000770 

0359 

C800 

1 1 5F 

000771 

0350 

4F0A 


000772 

03 5C 

C F 00 

1223 

000773 

0 3 5 E 

C B 80 

0368 

000774 

0360 

C F 80 

1 2 C A 

000775 

0362 

CB 80 

1 2 C 7 

000776 

0364 

C F 80 

0004 

000777 

0366 

8E70 

8004 

000778 

0368 

4C01 


000779 

000780 

0369 

C F 00 

0000 

000781 

0368 

C B 80 

048C 

000782 

000783 

036D 

C F 80 

1 2 C 4 

000784 

036 F 

C B 80 

1 2 C 1 

000785 

000786 

0371 

C F 80 

0001 

000787 

0373 

89 80 

11 6 F 

000788 

0375 

09 9E 


000789 

0376 

4C OA 


000790 

0377 

C F 00 

1 1 54 

000791 

0379 

87 00 

1 2 E 5 

000792 

0 3 78 

8700 

1 1 4E 


000793 

000794 

000795 


000796 

0 3 7 D 

C8 70 

01 18 

000797 

0 3 7 F 

9B80 

11 BA 

000798 

0381 

E880 

1247 

000799 

0383 

8380 

03 C E 

000800 




000801 




000802 




000803 

0385 

4C 18 



SPSYTC 


SPSYT1 


LINE SPEED TEST 


L DR 

$R4 # =A * B 4 




STR 

$R4,<ERMG + 1. 




LNJ 

$83# <C L FG 


CLEAR ALL TEST FLAGS 


LDR 

$R4# <HRTZ 


CALCULATE THE LOW AND HIGH RANGE 

OF RTC TICKS 

SOL 

$R4#2 




ADV 

$R4,=-8 




STR 

$R4/<SECL 




ADV 

$R4 / =1 6 




STR 

$R4 # <S E C H 




LDR 

$R4,<HRTZ 


CALCULATE NUMBER OF RTC TICKS IN 

5 SEC. 

ML V 

$R4#=10 




STR 

$R4#<FIVSEC 




LAB 

$B4/<SPSYT1 


SET UP INTERRUPT VECTORS AND 


STB 

$B4#<ISA4P 


POINTERS TO CHANGE RUNNING LEVEL 

TO 4 

L A 8 

$B4,<ISA4+$AF 




STB 

$B4/<ZHISAZ+4 * $A F 



LEV 

= Z* 8004* 


CHANGE RUNNING LEVEL TO 4 


LDV 

$R4#=1 


SET RTC LEVEL TO 1 


STR 

$R4 # <Z H R T CL 




LAB 

$B4#<N0SPD 


SET RUPT POINTER FOR RTC INTERRUPT 

STB 

$B4 # <IS A1 P 




LAB 

$B4/<IS A 1+ $AF 


SET RUPT VECTOR FOR LEVEL 1 RUPT 


STB 

$B4#<ZHISAZ+SAF 




CMZ 

< SHORT 




BNE 

>STSP1 




LDV 

$R4,=1 0 


STORE CHAR. SIZE 


STR 

$R4#<C SB 




CL 

<L C 3 SY F 


CLEAR SYNC, FLAG FOR ASYNC. LINES 


CL 

< B Y T P 


SET BYTE POSITION TO ZERO 


TEST 

LINE SPEEDS FOR 

ASYCHRONOUS OLD BAUD RATE 


LDR 

$R4,=XM18* 


SET $ R4 WITH FIRST SPEED TO TEST 

<ASYNC.) 

LAB 

$81#<ASYN 


LOAD LINE TYPE 


LAB 

$B6 # <0 SP T BL 


LOAD ADDRESS OF CHAR. NUMBER TABLE 

LNJ 

$B3#<SPDTLP 


GO TO LINE SPEED TEST 


TEST 

LINE SPEEDS FOR 

ASYCHRONOUS NEW BAUD RATE 


LDV 

$R4,=X'18* 


SET $ R 4 WITH FIRST SPEED TO TEST 

(ASYNC. ) 
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000804 

0386 

9880 

11 8B 


LAB 

$Bl # <A S Y N1 

LOAD LINE TYPE 


000805 

0388 

EB 80 

1237 


LAB 

$B6,<NSPTBl 

LOAD ADDRESS OF CHAR, NUMBER TABLE 


000806 

038A 

B3 80 

03 CE 


LNJ 

$B3*<SPDTLP 



000807 




★ 





000808 




* 

TEST LINE SPEEDS FOR 

ASYCHRONOUS CURRENT LOOP 


000809 




★ 





000810 

038 C 

4C18 



LOV 

$R4,=X*18* 



000811 

0380 

98 80 

11 BC 


LAB 

$B1 * <A S Y N C 



000812 

038 F 

EB 80 

1237 


LAB 

$B6/<NS P TBL 



000813 

0391 

B380 

03CE 


LNJ 

$B3*<SPDTLP 



000814 




★ 





000815 

039 3 

C870 

0F00 

STSP1 

LDR 

$R4,=3840 

SET RANGE FOR SYNC. LINES 


000816 

0395 

C F 00 

1166 


STR 

$R4,<RANGE 



000817 

0397 

EB 80 

1166 


LAB 

$B6* <RANGE 

LOAD ADDRESS OF RANGE FOR SPEED TEST SUB-ROUT 

000818 




★ 





000819 

0399 

CB 80 

0496 


LA8 

$B4,<IRRG 

% SET RUPT POINTER FOR RTC INTERRUPT 

(SYNC,.) 

000820 

0398 

C F 80 

12C4 


STB 

$B4,<ISA1P 



000821 

0390 

8A80 

11 4E 


INC 

<BY T P 

SET BYTE POSITION TO ONE 


000822 




* 





000823 

039F 

€870 

02 1 C 


LOR 

$R4,=X*21C * 

SET LCT SYNC. LINE FLAG 


000824 

03 A1 

C F 00 

1 2 E 5 


STR 

$ R 4 # <L C 3 S Y F 



000825 

03 A3 

4C08 



LOV 

$R4,-=8 

SET CHAR. SIZE FOR SPEED CALCULATION 

000826 

0 3A4 

C F 00 

11 54 


STR 

$R4* <CSB 



000827 

03A6 

C 8 70 

Cl 18 


LDR 

$R4,=Z * C118* 

LOAD $R4 WITH SYNC CHARACTER TO BE 

USED 

000828 

03A8 

89 80 

11 6 F 


CMZ 

<SHORT 



000829 

03 A A 

0980 



BN £ 

>STSP2 



000830 




* 





000831 




* 

MEASURE AND PRINT LI 

NE SPEED. FOR B I-SYCHRONOUS 


000832 




* 





000833 

03 AB 

9880 

1 1 BE 


LAB 

$B1*<BISYNC 

LOAD ADDRESS OF LINE TYPE 


000834 . 

03A 0 

83 80 

03 CE 


LNJ 

$B3*<SPDTLP 

GO TO LINE SPEED TEST 


000835 




★ 





000836 




★ 

MEASURE AND PRINT LINE SPEED FOR SYCHRONOUS 


000837 




★ 





000838 

0 3 A F 

9B80 

1 1 BO 


LAB 

$61.*<SYNC 

LOAD ADDRESS OF LINE TYPE 


000839 

0381 

83 80 

03 C E 


LNJ 

$B3*<SPDTLP 

GO TO LINE SPEED TEST 


000840 




★ 





000841 




★ 

MEASURE AND PRINT LINE SPEED FOR MIL 188 


000842 




★ 





000843 

03B3 

9B80 

1 1 BF 


LAB 

$B1 * <S Y N 188 



000844 

0385 

B380 

03 C E 


LNJ 

$B3/<SP0TLP 

GO TO LINE SPEED TEST 


000845 




★ 





000846 




* 


MEASURE AND PRINT 

LINE SPEED FOR WIDEBAND 301/303 


000847 




★ 





000848 

03B7 

9B80 

1 1 CO 

STSP2 

LAB 

$B1 * < W D B 3 



000849 

03B9 

B380 

03 C E 


LNJ 

$B3#<SPDTLP 



000850 




★ 





000851 




* 


MEASURE AND PRINT 

LINE SPEED FOR BI SYNC WIDEBAND 301/303 


000852 




* 
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000853 

038B 

9B80 

1 1 Cl 



LAB 

$B1,<WDB3B 



000854 

0 3 BO 

B3 80 

0 3 C E 



LNJ 

$B3^<SP0TLP 



000855 





★ 





000856 





* 


MEASURE AND PRINT 

LINE 

SPEED FOR WIDEBAND V35 

000857 





★ 





000858 

0 3 BF 

9880 

1 1 C 2 



LAB 

$B1,<WDBV35 



000859 

03 C 1 

B380 

0 3 C E 



LNJ 

$B3^<SPOTLP 



000860 





* 





000861 





* 


MEASURE AND PRINT 

LINE 

SPEED FOR BI-SYNC WIDEBAND V35 

000862 





* 





000863 

03 C 3 

9B 80 

1 1 C 3 



LAB 

$B1 * < W D B V 5 3 



000864 

03C 5 

B3 80 

03 C E 



LNJ 

$B3*<SPDTLP 



000865 





* 





000866 

03C7 

8A80 

1 1 65 



INC 

<PS FG 


SET FLAG TO INHIBIT PRINTOUT 

000867 






CALL 

Z V$ R 0 


RE-INITIALIZE INTERRUPT VECTOR AND POINTERS & 


0 3 C 9 

FB FO 

0001 








03CB 

03 80 

0000 

X 






000868 





* 




SET LEVEL TO ZERO 

000869 

03C D 

8382 




JMP 

$B2 


JUMP OUT OF TEST 

000870 





* 





000871 





* * ★ 

* * * 

********* 

★ * 

********************** 

000872 





★ 





000873 





* 


LINE SPEED LOOP 



000874 





★ 





000875 

03CE 

8 F 00 

1 1 9 A 


SPOTLP 

SAVE 

<SAV3, = Z *0810* 


SAVE REGS. 


0300 

0810 








000876 

0301 

87 53 




CL 

= $ R 3 


” $ R3 

000877 

03D2 

9F80 

03D6 



STB 

$B1,<ST1 


STORE LINE TYPE FOR FIND LINE ON 

000878 





★ 





000879 

0304 

0380 

0D4F 


JPT3 

LNJ 

$B5,<FLN 


FIND LINE ON OF TYPE 8EL0W 

000880 

03D6 

0000 



ST1 

RESV 

$ A F * 0 


LINE TYPE FOUND AND STORED HERE 

000881 

03D7 

8383 




JMP 

$B3 


NO MORE LINE THIS TYPE END TEST 

000882 





* 





000883 

0308 

87 51 




CL 

= $R 1 


CLEAR $R1 

000884 

0309 

87 52 




CL 

= $R 2 


CLEAR INDEX ON NEW LINE 

000885 

0 3 DA 

C F 00 

1 2 E 3 


NXSPD 

STR 

$R4,<LCT3S 


STORE LINE SPEED IN LCT TABLE 

000886 





★ 





000887 

03 0 C 

C 8 08 

0306 


NXSPD1 

L DR 

$R4,*<ST1 



000888 

03 D E 

C900 

1 1 BC 



CMR 

$R4,<ASYNC 



000889 

03E0 

0983 




BNE 

> N X S P D 2 


B IF NOT CURRENT LOOP ADAPT. 

000890 

03E1 

C 3 80 

OC 1 8 



LNJ 

$B4*<SCLS 


SET CURRENT LOOP ADAPTER SPEED 

000891 

03E3 

C 3 80 

0 DO A 


NXSPD2 

LNJ 

$B4#<GEN.ITZ 


GENERAL INITIALIZE 

000892 

03E5 

82 04 




LB 

= $R 4/= X'80' 


SEE IF SECOND LINE OF CLA 


03E6 

00 80 








000893 

03E 7 

0583 




BBF 

>ST 2 


IF SECOND LINEOF CLA 

000894 

03E8 

C380 

0C1 1 



LNJ 

$B4,<STMD 


SET TEST MODE FOR THE BOARD 

000895 





* 





000896 

03EA 

C5 70 

F F 80 


ST2 

AND 

SR4<r=Z ' F F80 * 


PREPARE TO WRITE CHANNEL PROG 

000897 

03EC 

C 4 70 

0040 



OR 

$R4,=X * 40* 
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000898 

03EE 

CF 00 

1 1 51 



STR 

$R4 # <CHN Z 

000899 






CALL 

ZV$MLWsCHLP1sRAG1sHX200#CHNZ 


03 F0 

F8 CO 

0003 






03F2 

03 80 

0000 

X 





03 F 4 

OF 80 







03F5 

OE 17 







03F6 

1 3 1 F 







03F7 

12A6 







03F8 

1 1 51 






000900 






CALL 

ZV$MLW*CHLP1A,RAG2,HX400,CHNZ 


03F9 

FB CO 

0003 






03F8 

D3 80 

0000 

X 





03 FD 

OF 80 







0 3 F E 

OE 2F 







0 3 F F 

13 20 







0400 

12A7 







0401 

11 51 






000901 





* 



000902 

0402 

. 0380 

0038 



LNJ 

$B5 * <S E TLC T SEND OUT LCT TABLE 

000903 

0404 

1 2 D F 




DC 

<LC T3 

000904 





* 



000905 

0405 

C8 26 




LOR 

$R4,$B6.$R2 LOAD $R4 WITH RANGE IN BYTES 

000906 

0406 

8A 03 




INC 

= $ R 3 

000907 

0407 

0380 

0099 



LNJ 

$B5 *<MC CB FORM CCB FOR XM1T 

000908 

0409 

11E3 




DC 

<DOUT 

000909 

04 OA 

0060 




OC 

X * 60 * 

000910 

0408 

88D3 




DEC 

=$R3 CHANGE TO RECV. SIDE 

000911 

04 OC 

4900 

047A 



8EZ 

$R4 # <T S NL 

000912 

040E 

CF 55 




STR 

$R4#=$R5 

000913 

040 F 

C970 

03 C 0 


MLCCB 

C MR 

$R4#=X'3C0* MAKE MULTIPLE CCB IF LARGE RANGE 

000914 

0411 

OA 80 

04 1 D 



BALE 

<SG C CB 

000915 

0413 

C870 

03C0 



L DR 

$R4,=X* 3 CO * 

000916 

0415 

0380 

0099 



LNJ 

$B5 # <MC C 8 

000917 

0417 

1C00 




OC 

< 01 N 

000918 

0418 

0040 




DC 

X * 4 0 * 

000919 

0419 

8801 




DEC 

= $R1 

000920 

041 A 

0254 




SUB 

$R5#-$R4 

000921 

0418 

OF 54 




STR 

$R5#-*$R4 

000922 

041 C 

OF F3 




B 

>ML C CB 

000923 





★ 



000924 

0410 

0380 

0 D99 


SGCCB 

LNJ 

$B5*<MCCB FORM CCB FO RECV. 

000925 

0 41 F 

1C 00 




OC 

<01 N 

000926 

0420 

0060 




OC 

X *60 * 

000927 





* 



000928 





* 



000929 





★ 

START 

I/O XMIT FIRST THEN RECV. 

000930 





* 



000931 

0421 

7C01 




LOV 

$R7,=1 

000932 

0422 

8A 03 




INC 

= $R 3 CHANGE TO XMIT SIOE 
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0023 


000933 

0423 

C800 

1 1 3F 



LDR 

$R4/<F0CC 


000934 

0425 

C380 

OD 95 



LNJ 

$B4,<CGSCH 


000935 

0427 

8000 

1 1 C5 



10 

<BIT1,=$R4 



0429 

00 54 







000936 

04 2 A 

0703 




BIOT 

>ME L C01 


000937 

042B 

F 3 80 

0 D BA 



LNJ 

$B7,<ERM8 


000938 

0 4 2 D 

D3 80 

0 0 63 


MEL C 01 

LNJ 

$B5/<TDLAY 


000939 

04 2 F 

88 03 




DEC 

= $ R 3 


000940 





★ 




000941 

0430 

8801 




DEC 

= $R 1 


000942 

0431 

C800 

1 1 3F 



LDR 

$R4,<FOC C 


000943 

0433 

C380 

0095 



LNJ 

$B4 / < C G S C H 


000944 

0435 

F800 

1223 



LOR 

$R7*<FIVSEC 

SYNC. UP CLOCK 

000945 

0437 

F F 00 

0000 

X 


STR 

$R7,<ZHRTCC 

STORE RTCC WITH 5 SEC OF TICKS 

000946 

0439 

0004 




RTCN 


TURN ON REAL TIME CLOCK 

000947 

04 3 A 

F900 

0000 

X 

SYCT 

CMR 

$R7,<ZHRTCC 


000948 

043C 

02 7E 




BL 

>SYC T 


000949 

0430 

8040 

0087 



10 

B I T1, = $R4 

START I/O 


043F 

00 54 







000950 

0440 

0703 




BIOT 

> J P T 1 


000951 

0441 

F380 

0D8A 



LNJ 

$B7,<ERMB 

ERROR: I/O WAS NA K * E D 

000952 

0443 

C 3 80 

0025 


JPT1 

LNJ 

$B4/<IN X T 

INPUT NEXT STATUS 

000953 

0445 

C800 

1144 



LOR 

$R4,<F I S 

LOOP ON INPUT STATUS UNTIL STATUS COMPLETE 

000954 

0447 

C380 

0095 



LNJ 

$B4/<CGSCH 


000955 

0449 

8055 



ST 3_ 

10 

=$R5,=$R4 

INPUT STATUS 


0 4 4 A 

00 54 







000956 

0440 

0703 




BIOT 

> J P T 2 


000957 

04 4 C 

F380 

ODBA 



LNJ 

$B7,<ERMB 

ERROR: I/O WAS NAK * E 0 

000958 

04 4 E 

8205 



JPT2 

L 8 

=$R5,=Z # 1000* 

SEE IF STATUS COMPLETE 


0 4 4 F 

1000 







000959 

0450 

05F9 




B8F 

> S T 3 

LOOP UNTIL STATUS COMPLETE 

000960 

0451 

17F2 




BINC 

$R 1 ✓ > J P T 1 

LOOP TO FINAL CCS 

000961 





★ 




000962 

0452 

0005 




RTC F 


TURN OFF REAL TIME CLOCK 

000963 

0453 

C800 

1223 



LOR 

$R4 * <F I V SE C 

CALCULATE ELAPSED TIME 

000964 

0455 

C200 

0000 

X 


SUB 

$R4,<ZHRTCC 


000965 

0457 

8755 




CL 

= $R 5 


000966 

0458 

8980 

11 6 E 



CMZ 

<SB T FG 

CHECK FLAG FOR STOP BIT TIME TEST 

000967 

0 4 5 A 

09 80 

06C6 



BNE 

<SBT E 


000968 





* 




000969 

04 5 C 

8980 

1 2 E 5 


JPT4 

CMZ 

< L C 3 S Y F 

SEE IF SYNC. OR ASYNC. LINE 

0009 70 

045E 

09A2 




BNE 

>SYNSP 


000971 

04 5 F 

C900 

1224 



CMR 

$R4,<SECL 

SEE IF NUMBER OF TICKS WITHIN 

000972 

0461 

0A 84 




SALE 

>TRYH 

ACCEPTABLE RANGE 

000973 

0462 

C900 

1225 



CMR 

$R4,<SECH 


000974 

0464 

08 OE 




BAL 

>T Y XL 


000975 

0465 

F800 

1 1 5B 


TRYH 

LDR 

$R7 * <E R F 

CLEAR ERROR FLAG TO 

000976 

0467 

8700 

1158 



CL 

<ERF 

SUPPRESS REGISTER DUMP 

000977 

0469 

F380 

00 C 2 



LNJ 

$B7 # <E R 08 
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000978 

0468 

C380 

0CA8 


LNJ 

$B4,<PRTLSP 

ERROR: INCORRECT LINE SPEED 

000979 

046D 

F F 00 

1158 


STR 

$R7,<ERF 


000980 

04 6 F 

4C0A 



LOV 

$R4,=10 


000981 

0470 

C F 00 

1 1 54 


STR 

$R4#<CS8 


000982 

0472 

8AD2 


T Y XL 

INC 

= $R2 


000983 

0473 

C800 

12E3 


LOR 

$R4,<LCT3S 

SET LCT TO NEXT SPEED 

000984 

0475 

C A 70 

0100 


ADO 

$R4/= X * 100 * 

CHANGE TO NEXT SPEED 

000985 

0477 

2010 



CMV 

$R2,=1 6 

SEE IF ALL SPEED TESTED 

000986 

0478 

08 00 

03 OA 


BAL 

<NX S PD 

BRANCH TO TEST NEXT SPEED 

000987 




★ 




000988 

047A 

3E02 


TSNL 

ADV 

$R3,=2 

TEST NEXT LINE 

000989 

0478 

8F80 

11 9 A 


RSTR 

<SAV3#*Z*0810* 

RESTORE REGS. 


047D 

0810 






000990 

047E 

0 F 80 

0304 


8 

<JPT3 


000991 




★ 




000992 

0480 

8980 

1165 

SYNSP 

CMZ 

<PSFG 


000993 

0482 

0986 



BNE 

>SYNSP1 


000994 

0483 

89 80 

11 6F 


CMZ 

<SHORT 


000995 

0485 

0983 



BNE 

> S Y N S P 1 


000996 

0486 

C380 

0CA8 


LNJ 

$B4,<PRTLSP 

PRINT SYNCHRONOUS LINE SPEED 

000997 

0488 

4C08 


SYNSP1 

LOV 

$R4,=8 


000998 

0489 

C F 00 

1154 


STR 

$R4y <C SB 


000999 

0488 

OF EF 



B 

>TS NL 


001000 




★ 




001 001 




★ 




001 002 




* 

RTC 

INTERRUPT ROUTINE 


001003 




* 




001004 

048C 

0005 


NOSPO 

RTC F 


TURN OFF RTC 

001 005 

0480 

8700 

1 1 54 


CL 

<C SB 


001006 

048F 

0880 

045C 


LAB 

$B5 ^ <J P T 4 

SET RUPT POINTER TO RETURN TO LEVEL 4 

001007 

0491 

OF 80 

1 2 C A 


STB 

$B5#<ISA4P 


001 008 

0493 

8E70 

80 04 


LEV 

= Z * 8004 * 


001009 

0495 

QFF7 



B 

>N0 S P D 


001010 




* 




001011 




* 




001012 




* + + 

♦ + + + 

+ ++ ♦♦.♦♦♦ 


001013 




★ 

SYNC. RTC INTERRUPT 

ROUTINE 

001014 




* 




001015 

0496 

0005 


IRRG 

RTC F 


TURN OFF RTC 

001016 

0497 

C 3 80 

0028 


LNJ 

$B4#<I NRG 

INPUT RANGE INTO $R5 

001017 

0499 

8A 01 



INC 

= $R 1 

FORM TOTAL RESIDUAL RANGE 

001018 

04 9 A 

19 04 



BEZ 

$ R1# > IR R G 2 

FROM OTHER CC8*S 

001019 

049B 

0 A 70 

03 CO 

IRRG1 

ADD 

$R5,=X* 3C0* 


001020 

04 9 D 

1 7 FE 



BINC 

S R1 / > I R R G1 


001021 

049E 

C800 

12 23 

1RRG2 

LDR 

$R4#<FIVSEC 

PUT ELAPSED TIME IN $R4 

001022 

04 AO 

0880 

0480 


LAB 

$B5/<SYNSP 

SET RUPT POINTER FOR RETURN TO LEVEL 4 

001023 

04A2 

OF 80 

1 2 C A 


STB 

$B5,<ISA4P 


001024 

04A4 

8E70 

8004 


LEV 

= Z * 8004 * 


001025 

04A6 

OF FO 



B 

> IR R G 




,4 
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001026 




* 





001027 




* 



.. _ _ 


001028 




* 





001029 




* 


TEST ADAPTER 1 

READY BIT 

FOR BROADBAND LINES 

001030 




* 





001 031 




* 





001 032 

04 A7 

C 8 70 

4320 

ADRTST 

LOR 

$R4,=A‘C ‘ 



001033 

04 A9 

C F 00 

13A9 


STR 

$R4,<ERMG+1 



001034 

04A9 

3380 

0BA6 


LNJ 

$B3,<CLFG 


CLEAR ALL TEST FLAGS 

001035 

04 A D 

8700 

1313 


CL 

<LCT8FG 



001036 

04 A F 

8A80 

1140 


INC 

< AR F G 


SET ADAPTER READY TEST FLAG 

001037 

0 4 B1 

7C20 



L DV 

$R7,=45 



001038 




* 





001 039 




★ 


TEST WIDEBAND 

301/303 

(C 5 AS SYNC, CHARACTER) 

001040 




* 





001041 

04B2 

9B80 

1 1 CO 


LAB 

$81 /<W DB 3 


LOAD ADDRESS OF LINE TYPE 

001 042 

04B4 

B380 

0 A 8C 

T 46 Y 

LNJ 

$B3,<DTAL0P 


LOOP SUB-ROUTINE 

001 043 

04B6 

0 F 85 



B 

>T46 A 



001044 

04f37 

1333 



DC 

< W C P 6 



001045 

04B8 

13 OB 



DC 

<LC T 8 



001 046 

04B9 

OOCO 



DC 

192 



001 047 

04 BA 

1 1 E3 



DC 

< D 0 U T 



001048 




* 





001049 




* 


TEST BI-SYNC, 

WIDEBAND 

301 /303 (C 5 AS SYNC. CHAR.) 

001050 




* 





001051 

04 BB 

C 8 71 


T46 A 

LDR 

$R4,+$B1 


LOAD ID TYPE INTO $R4 

001 052 

04BC 

C900 

11 C 1 


CMR 

$R4,<WDB3B 


CHECK TO SEE IF ALREADY DONE 

001053 

04BE 

0902 



BE 

>T4 6 



001 054 

04BF 

OF F5 



B 

>T46Y 



001055 




* 





001056 




* 


TEST WIDEBAND 

V35 (C 5 

AS SYNC. CHARACTER) 

001057 




* 





001058 

04 C 0 

9680 

11 C2 

T 46 

LA8 

$B1#<WDBV35 


LOAD ADDRESS OF LINE TYPE 

001059 

04C2 

9380 

0A8C 

T46Z 

LNJ 

$B3/<DT ALOP 



001060 

04 C 4 

OF 85 



B 

>T4 7 A 



001061 

04 C 5 

1333 



DC 

<WC P 6 



001062 

04C6 

13 OB 



OC 

<LC T 8 



001063 

04 C 7 

OOCO 



DC 

192 



001064 

04C8 

1 1 E3 



DC 

<DOU T 



001065 




* 





001066 




★ 


TEST BI-SYNC, 

WIDEBAND 

V35 (C5 AS SYNC. CHAR.) 

001067 




* 





001068 

04C9 

C871 


T47A 

LDR 

$R4#+$B1 


LOAD ID TYPE INTO $R4 

001069 

04 C A 

C900 

1 1 C 3 


CMR 

$R4,<WDBV53 


CHECK TO SEE IF ALREADY DONE 

001070 

04 C C 

0902 



BE 

>T4 7 



001 071 

04 C D 

OF F5 



B 

> T 4 6 Z 



001072 




★ 





001 073 

04 C E 

83 82 


T47 

JMP 

$62 


JUMP. OUT OF TEST 

001074 




* * * 

★ * * 

* * * * * * * 

* * * ★ 

********** **** * 
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001 075 




* 




001076 




★ 


ADAPTER READY 

CHECK ROUTINE 

001077 




* 




001078 

04 CF 

E380 

0BB7 

ARCK 

LNJ 

$86/<8AS£ 

LOAD $R 5 WITH LCT BASE ADDRESS 

001079 

04 D1 

5E3C 



AO V 

$R5 /=60 


001080 

04D2 

OF 00 

0406 


STR 

$R5/<ARCK1 


001081 




* 




001082 

0404 

E380 

0075 


LNJ 

$86/<RD L CT 

READ LCT LOCATIONS 25-28 

001083 

0406 

0000 


ARC K 1 

DC 

0 


001084 

0407 

0004 



DC 

4 


001085 




★ 




001086 

0408 

89 80 

1173 


CM2 

<LC T V 

SEE IF NO ERRORS IN ADAPTER READY BIT 

001087 

04 DA 

09 03 



BE 

> A R C K 2 


001088 

0 4 OB 

F 3 80 

00 C 2 


LNJ 

$87/ <ER 0B 

ERRORS ADAPTER READY BIT SETTING INCORRECTLY 

001089 

0400 

8980 

11 74 

ARC K2 

CMZ 

CLCTV+1 

CHECK BUFFER EMPTY BIT ERROR 

001090 

04 0 F 

0903 



BE 

> A R C K 3 


001091 

04E0 

F 3 80 

00 C 2 


LNJ 

$B7/<E R 0B 

ERROR: INCORRECT BUFFER EMPTY BIT 

001092 

04 E 2 

OF 80 

OBAO 

ARC K 3 

B 

< J PSA 


001093 




★ 




001094 




*• 




001095 




★ _ 




001 096 




★ 




001097 




★ 

CRC 

AND PARITY TEST 

001098 




* 




001099 

04E4 

C870 

4420 

CRPT8 

LOR 

$R4/=A*D 4 


001 100 

04E6 

C F 00 

13A9 


STR 

$R4/<ERMG+1 


001101 

04 E8 

83 80 

0BA6 


LNJ 

$B3/<CL FG 

CLEAR ALL TEST FLAGS 

001102 

04 E A 

8A80 

11 56 


INC 

< C R C FG 

SET FLAG FOR DTALOP SUB-ROUTINE 

001103 

04 E C 

8700 

1160 


CL 

< M A S K 

SET MASK FOR ZV$C 

001 104 

04EE 

C870 

C802 


LOR 

$R4/ =Z 4 C 802 ( 

1 SET LCT CONFIG. FOR 

001105 

04 FO 

C F 00 

1 2D9 


STR 

$R4/<LC2CFR 

R E CV. / ODD PARITY/ CRC16 

001 106 

04 F 2 

4E20 



AOV 

$ R 4/= X*2 0* 


001107 

04F3 

C F 00 

1 2 DA 


STR 

$R4/<LC2CFX 

XMIT LCT CONFIG. ODD PARITY 

001108 

0 4 F 5 

EB 80 

11 DC 


LAB 

$B6/<CPFLG 

LOAD ADDRESS OF LCT FLAG TABLE 

001109 

0 4 F 7 

C876 



LDR 

$R4/+$B6 

LOAD $R4 WITH LCT FLAG 

001 1 10 

04 F 8 

C F 00 

12 DO 

CRPTB1 

STR 

$R4/<LCT2FG 

STORE INTO LCT TABLE 

001111 

04 F A 

F870 

0 F 1 8 


LOR 

$R7/=X* FI 8* 

STORE INITIAL SPEED FOR ASYC. LINES 

001 112 

04 FC 

F F 00 

1 2 OB 


STR 

$R7/<L C T2 S 


001113 

04 FE 

7C06 



LDV 

$R7/=6 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

001114 




* 




001 11 5 




★ 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

001 116 




* 


9600 BAUD/ 

WITH 2 STOP BITS 

001117 




★ 




001118 

04 FF 

9B80 

1 1 BA 


LAB 

$B 1 / <A S Y N 

STORE ADDRESS OF LINE TYPE 

001119 

0501 

83 80 

0A8C 


LNJ 

$ B 3 / < D T ALOP 

GO TO LOOP SUB-ROUTINE 

001120 

0503 

OF 85 



B 

>T8 


001121 

0504 

1322 



DC 

< W C P 2 

ADDRESS TABLE FOR BLOCK WRITE 

001122 

0505 

1207 



DC 

<LC T 2 

LCT TABLE 

001123 

0506 

003F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 
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001124 

0507 

1 1 E3 



DC 

< DOU T 





001125 




* 







001126 




* 







001127 




* 


TEST ASYCHRONOUS 

LINES 

WITH NEW BAUD RATES 


001128 




★ 


19200 BAUD/ WITH 

2 

STOP BITS 


001129 

0508 

9B80 

1 1 BB 

T 8 

LAB 

$B 1 / < A S Y N1 



LOAD LINE TYPE 


001130 

0 50 A 

B3 80 

0A8C 

T8A 

LNJ 

$B3/<D T ALOP 



GO TO LOOP SUB-ROUTINE 


001131 

05 0C 

OF 85 



B 

>T9 





001132 

0500 

1322 



OC 

< W C P 2 



ADDRESS TABLE FOR BLOCK 

WRITE 

001133 

050E 

1207 



DC 

<LC T2 



LCT TABLE 


001134 

050 F 

003F 



DC 

<DF LT-DOUT) 



RANGE IN WORDS 


001135 

0510 

11 E3 



DC 

< D 0 U T 





001136 




* 







001137 




★ 


TEST CURRENT LOOP 

ASYNCHRONOUS 


001138 




★ 







001 139 

0511 

C 8 71 


T9 

LDR 

$R4/+$B1 



LOAD ID TYPE INTO $R4 


001140 

0512 

C 9 00 

11 BC 


CMR 

$R4/<ASYNC 



CHECK TO SEE IF ALREADY 

DONE 

001141 

0514 

0902 



BE 

>T9 A 





001142 

0515 

0 F F 5 



B 

>T8 A 





001143 


0516 


T9A 

EQU 

$ 





001144 

0516 

F 8 70 

3218 


LDR 

$R7/ = XV3218 I 



STORE SYNC. CHAR. INTO LCT TABLE 

001145 

0518 

F F 00 

12 DB 


STR 

$R7,<LCT2S 





001146 

051 A 

7C28 



LDV 

$ R 7 / = 4 0 



NUMBER OF 30 MS TIME DELAYS 

001147 




* 







001148 




* 


TEST SYNCHRONOUS 

LINES 

(32 AS SYNC. CHAR.) 


001149 




★ 







001150 

051 B 

9B80 

1 1 BO 


LAB 

$B1/<SYNC 



LOAD LINE TYPE 


001151 

0510 

B380 

0A8C 

QA2 

LNJ 

$B3/<DTAL0P 



GO TO LOOP SUB-ROUTINE 


001152 

0 5 1 F 

OF 85 



B 

>T1 0 





001153 

0520 

1322 



DC 

<WC P 2 



ADDRESS TABLE FOR BLOCK 

WRITE 

001154 

0521 

12 07 



DC 

<LC T 2 



LCT TABLE 


001155 

0522 

00 2 F 



DC 

(DFLT-D0UT1) 



RANGE IN WORDS 


001156 

0523 

11 F3 



DC 

<DOUT1 





001 157 




★ 







001158 




* 


TEST BI-SYNCHRONOUS 

LINES <32 AS SYNC. CHAR.) 


001159 




★ 







001160 

0524 

C 8 71 


T1 0 

LDR 

$R4 / + $B 1 



LOAD ID TYPE INTO $R4 


001161 

0525 

C900 

11 BE 


CMR 

$R4 / <B I S Y NC 



CHECK TO SEE IF ALREADY 

DONE 

001162 

0527 

0902 



BE 

>T1 2 





001163 

0528 

OFFS 



B 

>Q A 2 





001164 




★ 







001165 




* 


TEST MIL 188 SYNCHRONOUS (32 AS SYNC. CHAR,) 


001166 




* 







001 167 

0529 

9B80 

11 B F 

T1 2 

LAB 

$B1 /<SYN188 



LOAD LINE TYPE 


001168 

052B 

83 80 

0A8C 


LNJ 

$B3/<DTALOP 



GO TO LOOP SUB-ROUTINE 


001169 

0520 

OF 85 



B 

>T1 3 





001170 

0 5 2 E 

1322 



DC 

<WCP2 



ADDRESS TABLE FOR BLOCK 

WRITE 

001171 

05 2 F 

12 D7 



DC 

<LCT2 



LCT TABLE 


001172 

0530 

002F 



DC 

(DFLT-D0UT1) 



RANGE IN WORDS 
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001173 

0531 

11 F3 



OC 

<D0UT1 


001 174 




★ 




001175 




* 




001176 




* 


TEST WIDEBAND 

301 /303 < 3 A AS SYNC. CHARACTER) 

001177 




★ 




001178 

0532 

9B80 

1322 

T1 3 

LAB 

$B1,<WCP2 

LOAD A0ORE SS OF MEDIUM SPEED ADDRESS TABLE 

001179 

0534 

8980 

11 5E 


CMZ 

<HG S PO 

CHECK FOR HIGH SPEED LINE 

001180 

0536 

09 03 



BE 

>T13X 


001181 

0537 

9B80 

133F 


LAB 

$B1* <WC P8 

LOAD ADDRESS OF HIGH SPEED ADDRESS TABLE 

001182 

0539 

9 F 80 

0550 

T1 3 X 

STB 

$B1 ✓<T13 Z 

STORE INTO DTALOP SUB-ROUTINE 

001183 

053B 

9F80 

05 4 2 


STB 

$B1*<T13 Y 


001184 

0530 

9B80 

11 CO 


LAB 

$B1#<WOB 3 

LOAD ADDRESS OF LINE TYPE 

001185 

053F 

B3 80 

0A8C 

T13ZZ 

LNJ 

$B3* <D T ALOP 

LOOP SUB-ROUTINE 

001 186 

0541 

OF 85 



B 

> T 3 7 A 


001187 

0542 

0000 


t 13 y 

RESV 

$AF,0 


001188 

0543 

1207 



DC 

<LCT2 


001189 

0544 

003F 



DC 

<DFLT-DOUT) 


001 190 

0545 

11 E3 



DC 

< D 0 U T 


001191 




* 




001192 




* 


TEST BI-SYNC, 

WIDEBAND 301/303 <3A AS SYNC. CHAR.) 

001193 




* 




001 194 

0546 

C871 


T37A 

LOR 

$R4/+$B1 

LOAD ID TYPE INTO $R4 

001 195 

0547 

C900 

11 Cl 


C MR 

$R4,<WDB3B 

CHECK TO SEE IF ALREADY DONE 

001196 

0549 

09 02 



BE 

>T3 7 


001197 

0 5 4 A 

OF F5 



B 

> T13ZZ 


001198 




* 




001199 




★ 


TEST WIDEBAND 

V35 (3A AS SYNC. CHAR.) 

001200 




* 




001201 

05 4 B 

9B80 

11 C 2 

T37 

LAB 

$B1 /<WD BV3 5 

‘LOAD ADDRESS OF LINE TYPE 

001202 

0540 

8380 

0A8C 

T13YY 

LNJ 

$B3 * <D T ALOP 


001203 

0 5 4 F 

OF 85 



B 

>T3 8 A 


001204 

0550 

0000 


T1 3 Z 

RESV 

$AF/0 


001205 

0551 

1207 



OC 

< L C T 2 


001206 

0552 

00 3 F 



OC 

<DFLT-DOUT> 


001207 

0553 

11 E3 



OC 

< 0 0 U T 


001208 




★ 




001209 




★ 


TEST BI-SYNC, 

WIDE8AND V35 <3A AS SYNC, CHAR.) 

001210 




★ 




001211 

0554 

C871 


T38 A 

LOR 

$R4 * +$B1 

LOAD ID TYPE INTO $R4 

001212 

0555 

C900 

11 C 3 


C MR 

$R4 ,<WD BV5 8 

CHECK TO SEE IF ALREADY DONE 

001213 

0557 

0902 



BE 

>T38 


001214 

0558 

OF F5 



B 

>T13 YY 


001215 




* 




001216 

0559 

C 8 76 


T38 

LOR 

$R4 * +$B 6 

CHANGE LCT FLAG 

001217 

0 5 5 A 

4980 

04 F 8 


BNEZ 

$R4,<CRPTB1 

SEE IF ALL FLAGS CHECKED 

001218 

0 5 5 C 

C800 

1209 


LDR 

$R4#<LC2CFR 

SEE IF ALL COMBINATIONS HAVE 8EEN RUN 

001219 

0 5 5 E 

C9 70 

0802 


CMR 

$R4 # =Z ' D 802 

• 

001220 

0560 

09 OD 



BE 

> C R P T B 2 

BRANCH IF ALL TESTED 

001221 

0561 

C 8 70 

0802 


LDR 

$R4 ✓ =Z* D802 

* CHANGE LCT CONFIG. TO EVEN PARITY 
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001222 

0563 

C F 00 

1209 


STR 

$R4,<LC2C FR 

STORE RECV CONFIG. 

001223 

0565 

4 E 20 



AD V 

$R4/=X 1 20' 

CHANGE AODRESS FOR XMIT LCT 

001224 

0566 

C F 00 

1 2 OA 


STR 

$R4 * <L C 2 C F X 

STORE XMIT CONFIG. 

001225 

0568 

EB 80 

1 1 OD 


LAB 

$B6*<CPFLG+1 

SET TO TEST WITH PARITY 

001 226 

0 5 6 A 

C876 



LOR 

$R4/+$B6 

LOAD $R4 WITH LCT FLAG 

001227 

056B 

OF 80 

04 F8 


B 

<C R P TB1 

BRANCH TO TEST ALL LINES AGAIN WITH EVEN PARI 

001228 

0 56D 

8700 

1 1 56 

CRPTB2 

CL 

<CRC FG 

CLEAR CRC AND PARITY TEST FLAG 

001229 

0 56 F 

8382 



JMP 

$B2 

JUMP OUT OF TEST 

001230 




★ 




001231 




★ * * 

* * * * 

********** 

********** ************ 

001232 




* 




001233 




* 

CRC AND PARITY CHECK 

ROUTINE 

001234 




* 




001235 




* 




001236 

0570 

8F00 

11 8 A 

C RPR T 

SAVE 

<SAV 2/ = Z'91EO* 

SAVE REGS. $B1*82*$R7 


0572 

91 EO 






001237 

0573 

AC 80 

OA 0 F 


LOB 

$ B 2 / < T G 2 

LOAD ADDRESS OF LCT TABLE INTO $B2 

001238 

0575 

C8 42 

0002 


LDR 

$R4/$B 2.2 

LOAD $R4 WITH CONFIG. 

001239 

0577 

404E 



SOR 

$R4,14 

SHIFT TO CHAR. SIZE 

001 240 

0578 

4 E 05 



AOV 

$R4,=5 


001241 

0579 

C F 00 

1 1 53 


STR 

$R4 *<C S 

STORE CHARACTER SIZE FROM CONFIG. 

001242 




* 




001243 




* 

SE T 

ZV$C MASK ACCORDING 

TO CHAR. SIZE 

001244 




★ 




001245 

0578 

4008 



CMV 

$R4,=8 


001246 

0 5 7C 

09 OA 



BE 

>CRPR2 


001247 

0570 

4 D 07 



CMV 

$R4,=7 


001248 

057E 

09 84 



BNE 

>CHRF1 


001249 

0 5 7 F 

C 8 70 

7F7F 


LOR 

$R4,=Z * 7F7F* 

SET MASK FOR 7 BIT CHAR. 

001250 

0581 

OF 83 



B 

> C R P R1 


001251 

0582 

C£ 70 

3F3F 

C HR F 1 

LDR 

$R4/>=Z* 3F3F ' 

SET MASK FOR 5 BIT CHAR. 

001252 

0584 

C F 00 

1160 

CRPR1 

STR 

$R4*<MASK 


001253 




★ 




001 254 

0586 

C 8 42 

0006 

CRPR2 

LDR 

SR4/SB2.6 

CHECK LCT FLAG TO SEE IF CRC AND/OR PARITY 

001255 

0588 

40 17 



CMV 

$R4,=X *17* 


001256 

0589 

OAOO 

05 BC 


BAG 

< C K C RC 

BRANCH TO CHECK CRC ONLY 

001257 




* 




001258 




* 




001259 

0588 

BC 80 

0802 


LDB 

$B3*<TG3 

LOAD ADDRESS OF DATA BUFFER 

001260 

0580 

9B80 

1000 


LAB 

$B1,<DIN1 

LOAD ADDRESS OF SHOULD BE WITH PARITY 

001261 

05 8 F 

F 8 00 

1166 


LDR 

$R7,<RANGE 

LOAD RANGE OF TRANSFER IN WORDS 

001262 

0591 

7001 



SOL 

$R7,1 

CHANGE RANGE TO BYTES 

001263 

0592 

C842 

0002 


LDR 

$R4,$B2.2 

CHECK CONFIGURATION TO SEE IF ODD 

001264 

0594 

C5 70 

1000 


AND 

X} 

■t> 

% 

li 

X 

O 

o 

o 

OR EVEN PARITY 

001265 

0596 

40 4C 



SOR 

$R4,12 

SHIFT TO L SB 

001266 

0597 

8B54 



LB C 

= $ R 4 / = X ' 1 * 

COMPLEMENT THE BIT TO WORK IN SUB-ROUTINE 


0598 

0001 






001267 

0599 

C F 00 

11 64 


STR 

$R4 , <PTTY 

STORE IN PARITY TYPE LOCATION 

001268 




★ 






TITLE 0 CM VA 


07/28/78 1733,9 edt Fri 


HRS ASSEMBLER 5,05 


PAGE 0030 


001 269 

0598 

C3 80 

08D9 



LNJ 

$B4* <CPAR 

GO TO CALCULATE PARITY 

001270 





* 




001271 






CALL 

ZV$C*DIN1,DIN# 

MASK#RANGE,ERAR 


059D 

F8 CO 

0003 







059F 

D3 80 

0000 

X 






0 5 A1 

OF 80 








05A2 

ID 00 








0 5 A 3 

1C 00 








05A4 

11 60 








05A5 

1166 








05A6 

11 76 







001272 

0 5 A 7 

89 80 

1 1 76 



CMZ 

< £ R A R 

SEE IF ANY ERRORS 

001273 

05A9 

09 OD 




BE 

> C K P T Y 2 


001274 

05 AA 

D8 00 

1 1 78 



LDR 

$R5 # <ER AR + 2 

LOAD 'is* INTO $R5 

001275 

0 5 AC 

£800 

1177 



LDR 

$R6#<ERAR+1 

LOAD * should be* INTO SR6 

001276 

0 5 AE 

F800 

1176 



LDR 

$R7#<ERAR 

LOAD $R 7 WITH WORD COUNT 

001277 

05B0 

F380 

0D8A 



LNJ 

$B7,<£RM9 

ERROR: INCORRECT PARITY 

001278 






CALL 

ZVSCO 

CONTINUE CHECKING ENTIRE BUFFER 


0502 

FBFO 

0001 







0584 

D380 

0000 

X 





001279 

0586 

DB 80 

OB 74 


CKPTY2 

LAB 

SB5 * <J P5 

CHANGE $85 TO POINT TO AFTER COMPARE 

001280 

05B8 

89 C2 

0006 



CMZ 

$B2, 6 

CHECK FLAG IF PARITY ON TO 

001281 

05 8 A 

OA 80 

05F4 



BALE 

<ED C K 

BRANCH IF PARITY NOT ON 

001282 

058 C 

£3 80 

0BB7 


CKCRC 

LNJ 

SB6* <BA S E 

LOAD SR5 WITH LCT BASE ADDRESS 

001283 

0 5BE 

5EG3 




ADV 

SR5,=3 

FOR BLOCK READ OF CRC RESIDUE 

001284 

0 5 B F 

DF 00 

0 5 C 6 



STR 

$R5*<RCRRL 

STORE RECV. RESIDUE ADDRESS 

001285 

05C 1 

5E 20 




ADV 

$R5,=32 


001286 

0 5 C 2 

D F 00 

05 C F 



STR 

$R5#<RC RXL 

STORE XMIT RESIDUE ADDRESS 

001287 





* 




001288 

05C4 

E380 

OD 7 5 



LNJ 

$B6 * <R DL CT 

READ RECV. CRC RESIDUE 

001289 

05 C6 

0000 



RCRRL 

DC 

0 

RAM ADDRESS 

001290 

05 C 7 

0002 




DC 

2 

RANGE 

001291 





★ 




001292 

05C8 

C8 00 

1173 



LDR 

SR4 * <LC T V 


001293 

05 C A 

4018 




SCL 

$R4,8 

ROTATE THE ORDER 

001294 

05C8 

C F 00 

1 1 67 



STR 

$R4/<R C R C 


001295 





* 




001296 

05 C 0 

£380 

OD 75 



LNJ 

$B6*<RDLCT 

READ XMIT CRC RESIDUE 

001297 

05C F 

0000 



RCRXL 

DC 

0 

RAM ADDRESS 

001298 

0 5 DO 

0002 




DC 

2 

RANGE 

001299 





* 




001300 

05 D1 

C 800 

11 73 



LDR 

$R4/<LCTV 


001 301 

05 D 3 

4018 




SCL 

$R4,8 


001302 

05 D4 

C F 00 

1172 



STR 

$R4/<XCRC 


001303 





★ 




001304 

05D6 

£880 

11 CA 



LAB 

SB6/CCRC16 

LOAD CRC TYPE 

001305 

05D8 

E800 

1153 



LDR 

$ R 6 * < C S 

LOAD CHAR. SIZE 

001306 

0 5 DA 

BC 80 

0802 



LDB 

$83*<TG3 

LOAD ADDRESS OF OUTPUT BUFFER 

001307 

05 DC 

C842 

0006 



LDR 

$R4 * SB2.6 

CHECK FLAG TO SEE IF OUTPUT BUFFER CORRECT 


( 
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001308 

0 5 D E 

AD 17 



CMV 

$R4*=X'17' 


001309 

0 5 D F 

0983 



BN E 

>CKPCR 


001310 

05E0 

BB 80 

1 D 00 


LAB 

$B3*<DIN1 


001311 

0 5 E 2 

F800 

11 66 

CKP CR 

LDR 

$R7* <RANGE 

LOAD RANGE OF TRANSFER IN WORDS 

001312 




* 




001313 

0 5 E A 

C 3 80 

OBBB 


LN J 

$B4*<CRC 

CALCULATE CRC FOR THE TRANSFERS 

001314 




★ 




001315 

05E6 

E800 

1155 


LDR 

$R6*<CRCAC 

LOAD $R6 WITH SHOULD BE 

001316 

05E8 

0800 

11 67 


LDR 

$R5*<RCRC 

LOAD CRC RECV. RESIDUE 

001317 

0 5 E A 

E955 



CMR 

$R6*=$R5 

COMPARE RECEIVE CRC 

001318 

0 5 E B 

09 03 



BE 

> R C R C G 


001319 

0 5 E C 

F 3 80 

00 C 2 


LNJ 

$B7/<ERDB 

ERROR: RECEIVE CRC RESIDUE WRONG 

001320 

05EE 

D800 

1 1 72 

RCRCG 

LDR 

$R5*<XC RC 

LOAD XMIT CRC RESIDUE 

001321 

05 F0 

E955 



CMR 

$R6 * =$R 5 

COMPARE XMIT CRC 

001322 

0 5 F1 

0903 



BE 

> E D C K 


001323 

05F2 

F 3 80 

00 C 2 


LNJ 

$B7*<ER0B 

ERROR: XMIT RESIDUE WRONG 

001324 

0 5 F A 

8 F 80 

118A 

E DC K 

RSTR 

<SAV 2* = Z* 91EO* 

RESTORE REGS. 


05F6 

91 EO 






001325 

0 5 F 7 

8385 



JMP 

$B5 

GO BACK TO DATLOP SUB-ROUTINE 

001326 




* 




001327 




★ 




001328 




★ 




001329 




* 




001 330 




★ 


CHARACTER SIZE TEST 


001331 




★ 




001332 

05 FS 

C870 

A 5 20 

CHSZ TD 

LDR 

$R4*=A«E * 


001333 

0 5 FA 

C F 00 

1 3A9 


STR 

$R4*<ERMG+1 


001 3 3A 

0 5 F C 

B380 

0BA6 


LNJ 

$B3*<CLFG 

CLEAR ALL TEST FLAGS 

001335 

0 5 F E 

8A80 

1150 


INC 

< C H S Z F G 

SET CHARACTER SIZE TEST FLAG 

001336 

0600 

AC 02 



LDV 

$R4*=2 

LOAD CONFIGURATION FOR 1 STOP BIT ODD 

001337 

0601 

C F 00 

1 2 E 9 


STR 

$R4*<LC4CFR 

PARITY* 5 BIT CHAR. RECV. 

001338 

0603 

AE 20 



ADV 

$R4*=X*20* 


001339 

060 A 

CF 00 

1 2 E A 


STR 

$R4*<LC4CFX 

STORE XMIT CONF. 

0013 A 0 

0606 

C 8 70 

1 F 1 F 


LDR 

$RA*=Z* 1 FIF 1 

SET MASK FOR FIVE BIT CHAR. 

0013 A 1 

0608 

C F 00 

1160 


STR 

$R4*<MASK 


0013A2 

06 0A 

7C06 


CHSZT1 

LDV 

$R7*=6 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

0013A3 

060B 

C 8 70 

0 F 1 8 


LDR 

$R4*=X* FI 8* 

SET LINE SPEED FOR ASYNC. LINE 

001 3 A A 

0600 

C F 00 

1 2 E B 


STR 

$R4*<LCT4S 


0013A5 




* 




0013A6 




* 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

0013 A 7 




* 


9600 BAUD* WITH 1 

STOP BIT 

0013A8 




* 




0013 A 9 

060 F 

9B80 

1 1 BA 


LAB 

$B1 * <A S Y N 

STORE ADDRESS OF LINE TYPE 

001350 

0611 

B380 

0 A 8C 


LNJ 

$B3*<DTAL0P 

GO TO LOOP SUB-ROUTINE 

001351 

0613 

OF 85 



B 

>T 1 A 


001352 

061 A 

13 27 



DC 

<WC P 3 

ADDRESS TABLE FOR BLOCK WRITE 

001353 

061 5 

12E7 



DC 

<LC T A 

LCT TABLE 

00135A 

0616 

003F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 

001355 

0617 

11 E3 



DC 

< D 0 U T 
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001356 




* 






001357 




* 


TEST ASYCHRONOUS 

LINES 

WITH NEW BAUD RATES 


001358 




★ 


19200 BAUD# 

WITH 

1 STOP BIT 


001359 




* 






001 360 

0618 

9B.80 

11 BB 

T1 4 

LAB 

$B1 / <A S Y N1 


LOAD LINE TYPE 


001361 

061 A 

8380 

0A8C 

T1 4 A 

LNJ 

$83* <D T A L OP 


GO TO LOOP SUB-ROUTINE 


001362 

061 C 

0 F 85 



B 

>T1 5 




001363 

061 D 

1327 



DC 

<WC P 3 


ADDRESS TABLE FOR BLOCK 

WRITE 

001364 

061 E 

1 2 E 7 



DC 

< L C T 4 


LCT TABLE 


001365 

061 F 

003F 



DC 

(DFLT-DOUT) 


RANGE IN WORDS 


001366 

0620 

11 E3 



DC 

<DOUT 




001367 




* 






001368 




★ 


TEST CURRENT LOOP 

ASYNCHRONOUS 


001369 




* 






001370 

0621 

C 8 71 


T1 5 

L DR 

$R4 * +$81 


LOAD ID TYPE INTO $R4 


001371 

0622 

C900 

1 1 BC 


CMR 

$R4 * <AS Y NC 


CHECK TO SEE IF ALREADY 

DONE 

001372 

0624 

09 02 



BE 

>T15 A . 




001 373 

0625 

OF F5 



B 

>T1 4 A 




001 374 


0626 


T1 5 A 

EQU 

$ 




001375 

0626 

F8 70 

E618 


LDR 

$R7* = 2'E618• 


STORE SYNC* CHAR* INTO 

LCT TABLE 

001376 

0628 

F F 00 

1 2 E 8 


STR 

$R7*<LCT4S 




001 377 

062 A 

7C 28 



LDV 

$R7 * =40 


NUMBER OF 30 MS TIME DELAYS 

001378 




★ 






001 379 




* 


TEST SYNCHRONOUS 

LINES 

(E6 AS SYNC* CHAR.) 


001380 




* 






001381 

0628 

9B80 

1 1 BD 


LAB 

$B1*<SYNC 


LOAD LINE TYPE 


001382 

06 2 D 

B3 80 

0A8C 

Q A 3 

LNJ 

$83 * < D T ALOP 


GO TO LOOP SUB-ROUTINE 


001383 

062F 

OF 85 



B 

>T1 6 




001384 

0630 

1327 



DC 

< W C P 3 


ADDRESS TABLE FOR BLOCK 

WRITE 

001385 

0631 

12E7 



DC 

<LC T4 


LCT TABLE 


001386 

0632 

002F 



DC 

(DFLT-0OUT1> 


RANGE IN WORDS 


001387 

0633 

11 F3 



DC 

< D 0 U T 1 




001388 




* 






001389 




* 


TEST BI-SYNCHRONOUS LINES (E6 AS SYNC* CHAR*) 


001390 




* 






001391 

0634 

C8 71 


T16 

LDR 

$R4 * +$B1 


LOAD ID TYPE INTO $R4 


001392 

0635 

C900 

11 BE 


CMR 

$ R 4 * < 8 ISYNC 


CHECK TO SEE IF ALREADY 

DONE 

001393 

0637 

0902 



BE 

>T1 7 




001394 

0638 

OF F5 



B 

>Q A 3 




001395 




★ 






001396 




* 


TEST MIL 188 SYNCHRONOUS (E6 AS SYNC* CHAR.) 


001397 




* 






001398 

0639 

9680 

1 1 BF 

T1 7 

LAB 

$81#<SYN188 


LOAD LINE TYPE 


001399 

0633 

B380 

0A8C 


LNJ 

$B3* <D T ALOP 


GO TO LOOP SUB-ROUTINE 


001400 

0 6 3 D 

0F 85 



B 

> T1 8 




001401 

06 3 E 

1327 



DC 

< W C P 3 


ADDRESS TABLE FOR BLOCK 

WRITE 

001402 

0 6 3 F 

12E7 



DC 

< L C T 4 


LCT TABLE 


001 403 

0640 

00 2 F 



DC 

(DFLT-D0UT1) 


RANGE IN WORDS 


001404 

0641 

11 F3 



DC 

< DO U T 1 
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001405 




* 






001406 




★ 






001407 




★ 


TEST WIDEBAND 

301/303 

(E6 AS SYNC. CHARACTER) 


001408 




★ 






001409 

0642 

9880 

1327 

T 1 8 

LAB 

$B1,<WCP3 


LOAD ADDRESS OF MEDIUM SPEED ADDRESS TABLE 

001410 

0644 

89 80 

1 1 5E 


CMZ 

< H G S P D 


CHECK FOR HIGH SPEED LINE 


001411 

0646 

0903 



BE 

>T1 8X 




001412 

0647 

9B80 

1 3 3 F 


LAB 

$81,<WCP8 


LOAD ADDRESS OF HIGH SPEED ADDRESS 

TABLE 

001413 

0649 

9 F 80 

0660 

T1 8 X 

STB 

$B1,<T18Z 


STORE INTO DTALOP SUB-ROUTINE 


001414 

0648 

9 F 80 

0652 


STB 

$B1,<T18Y 




001415 

064 D 

9B 80 

1 1 CO 


LAB 

$B1*<WDB3 


LOAD ADDRESS OF LINE TYPE 


001416 

064 F 

B380 

0 A 8C 

T18YY 

LNJ 

$B3* <DT ALOP 


LOOP SUB-ROUTINE 


001 417 

0651 

OF 85 



B 

>T3 5 A 




001 418 

0652 

0000 


T1 8 Y 

RESV 

$ AF * 0 




001419 

0653 

12E7 



DC 

< L C T 4 




001420 

0654 

003F 



DC 

(DFLT-DOUT) 




001421 

0655 

11 E3 



DC 

<DOUT 




001422 




* 






001423 




* 


TEST BI-SYNC. 

WI DEBAND 

301 /303 (E 6 AS SYNC. CHAR.) 


001424 




* 






001425 

0656 

C 8 71 


T 3 5 A 

LDR 

$R4,+$Bl 


LOAD ID TYPE INTO $R4 


001426 

0657 

C900 

1 1 Cl 


C MR 

$R4,<WDB3B 


CHECK TO SEE IF ALREADY DONE 


001427 

0659 

09 02 



BE 

>T3 5 




001428 

06 5 A 

OF F5 



B 

>T18Y Y 




001429 




* 






001430 




* 


TEST WIDEBAND 

V 35 ( E 6 

AS SYNC. CHAR.) 


001431 




* 






001432 

06 5 B 

9B80 

11 C 2 

T 3 5 

LAB 

$B1,<WDBV35 


LOAD ADDRESS OF LINE TYPE 


001433 

06 5 D 

B3 80 

0A8C 

T18ZZ 

LNJ 

$B3* <D T A LOP 




001434 

06 5 F 

OF 85 



B 

>T36 A 




001435 

0660 

0000 


T18Z 

RESV 

$AF,0 




001436 

0661 

12E7 



DC 

<LC T 4 




001 437 

0662 

00 3 F 



DC 

(DFLT-DOUT) 




001438 

0663 

11 E3 



DC 

< DOU T 


- 


001439 




* 






001440 




★ 


TEST BI-SYNC. 

WIDEBAND 

V35 (E6 AS SYNC. CHAR.) 


001441 




* 






001442 

0664 

C 8 71 


T 36 A 

LDR 

$R4,+$B1 


LOAD ID TYPE INTO $R4 


001443 

0665 

C900 

11 C 3 


CMR 

$R4✓<WDBV58 


CHECK TO SEE IF ALREADY DONE 


001444 

0667 

0902 



BE 

>T 3 6 




001 445 

0668 

OF F5 



B 

>T 1 8 Z Z 




001446 




★ 






001 447 

0669 

8 A 80 

1 1 56 

T 36 

INC 

<CRC FG 




001448 

066B 

C800 

1 2E9 


LDR 

$R4,<LC4CFR 


CHANGE CONFIGURATION TO NEXT CHAR. 

SIZE 

001449 

066D 

CA 70 

4000 


ADD 

$ R 4 ✓ = X'4 000 4 




001450 

0 66 F 

0608 



BCT 

> C H S Z D E 


IF CARRY ALL CHAR. SIZES HAVE BEEN 

TESTED 

001451 

0670 

C F 00 

1 2 E 9 


STR 

$R4,<LC4CFR 


STORE R EC V CONFIG. 


001452 

0672 

4E20 



ADV 

$R4,=X* 20' 




001453 

0673 

C F 00 

1 2 E A 


STR 

$R4*<LC4CFX 


STORE.XMIT CONFIG. 
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001454 

0675 

OF 80 

060A 



B 

<CHS ZT 1 

00 NEXT CHAR. 


001455 





* 





001 456 

0677 

8700 

1156 


CHS20E 

CL 

<CR C FG 

CLEAR CRC AND PARITY FLAG 


001 457 

0679 

8700 

1150 



CL 

CCHSZFG 

CLEAR CHARACTER SIZE TEST FLAG 


001458 

0678 

8382 




JMP 

$B2 

JUMP OUT OF TEST 


001459 





* 





001460 





★ 





001461 





* 





001462 





* 


STOP BIT TEST 



001463 





* 





001464 

067C 

C870 

4620 


STB ITE 

LOR 

$R4 * = A * F * 



001465 

067E 

C F 00 

13A9 



STR 

$R4*<ERMG+1 



001466 

0680 

83 80 

08A6 



LNJ 

$83* <CL FG 

CLEAR ALL TEST FLAGS 


001 467 

0682 

CB80 

0695 



LAB 

$B4 * <SB I T1 

SET UP INTERRUPT VECTORS AND 


001468 

0684 

CF 80 

1 2 C A 



STB 

$B4 * <ISA 4P 

POINTERS TO CHANGE RUNNING LEVEL TO 

4 

001469 

0686 

CB 80 

12C7 



LAB 

$B4 * <I S A 4 + $ AF 



001470 

0688 

C F 80 

0004 

X 


STB 

$B4* <ZHISAZ+4 



001 471 





★ 





001472 

068A 

C800 

1 1 5 F 



LOR 

$R4* <H RT Z 

CALCULATE THE LOW AND THE 


001 473 

068C 

4F06 




ML V 

$R 4 * =6 

HIGH RANGE OF ACCEPTABLE CLOCK TICKS 

001 474 

0680 

4E F 7 




ADV 

$R4 * =-9 



001 475 

068E 

C F 00 

1224 



STR 

$R4 * <S E C L 



001476 

0690 

4E12 




ADV 

$R4 *-18 



001477 

0691 

C F 00 

1225 



STR 

$R4*<SECH 



001478 

069 3 

8E70 

8004 



LEV 

= Z* 8004* 

CHANGE RUNNING LEVEL TO 4 


001 479 

0695 

4C 01 



SBI T 1 

LD V 

$ R 4 * = 1 

SET RTC LEVEL TO 1 


001480 

0696 

C F 00 

0000 

X 


STR 

$ R 4 * < Z H R T C L 



001481 





★ 





001482 

0698 

CB 80 

06FB 



LAB 

$B4*<NBITT 

SET RUPT POINTER FOR RTC INTERRUPT 


001 483 

069A 

CF 80 

1 2 C 4 



STB 

$B4*<ISA1P 



001484 





★ 





001 485 

069 C 

CB 80 

1 2 C1 



LAB 

$B4*<ISA1+$AF 

SET RUPT VECTOR FOR LEVEL 1 RUPT 


001486 

069 E 

C F 80 

0001 

X 


STB 

$B4*<ZHISAZ+1 



001487 





★ 





001488 

06 A 0 

8700 

12E5 



CL 

< L C 3 S Y F 

CLEAR SYNC. FLAG FOR ASYNC, LINE 


001 489 

06A2 

8A80 

1 1 6E 



INC 

< S B T F G 

SET STOP BIT TIME TEST FLAG 


001490 

06A4 

C870 

C002 



LOR 

_$R4 * =Z * C 002 • 

LOAD AND STORE INITIAL LINE CQNF. 


001491 

06A6 

C F 00 

1 2 E1 



STR 

$R4*<LC3CFR 

FOR RECV. 


001492 

06A8 

4E20 




ADV 

$R4*=X*20* 



001 493 

06A9 

C F 00 

12E2 



STR 

$R4*<LC3CFX 

FOR XMIT 


001494 

06A8 

C 8 70 

0318 



LOR 

$R4*=X* 318* 

LOAD $ R4 WITH SPEED FOR ASYNC. LINE 


001495 

06AD 

96 80 

1 1 BA 



LAB 

$B1*<ASYN 

LOAD LINE TYPE 


001496 

06 A F 

E B 80 

1276 



LAB 

$B6*<SBITBL 

LOAD ADDRESS OF CHAR. NUMBER TABLE 


001 497 

06B1 

B380 

03 C E 



LNJ 

$B3 * <SP 0 TLP 

GO TO SPEED TIME LOOP 


001498 





★ 





001499 

0683 

C870 

0218 



LDR 

$ R 4 * = X * 218* 

LOAD $R4 WITH SPEED SELECT FOR NEW 

ASYC. 

001500 

0685 

9B80 

1138 



LAB 

$B1* <ASYN1 

LOAD ADDRESS OF LINE TYPE 


001501 

06Q7 

B3 80 

03 C E 



LNJ 

$B3* <SP OTLP 

GO TO SPEED TIME LOOP 



001 502 * 


'ly 
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001503 
001504 
001505 
001506 
001507 


001508 
001509 
001510 
001511 
001512 
001513 
001514 
001 515 
001516 
001517 
001518 
001 519 
001520 
001521 
001522 

001523 
001524 
001525 
001526 
001527 
001528 
001529 
001530 
001531 
001532 
001533 
001534 
001535 
001536 
001537 
001538 
001 539 
001540 
001541 
001542 
001543 
001544 
001545 
001546 
001547 
001548 


0689 

C8 70 

0218 

LDR 

$R4 / =X 1 2 1 8 * 

0688 

9B80 

11 BC 

LAB 

$81 * < A S Y N C 

06BD 

B380 

03 C E 

LNJ 

$B3/<SPDTLP 




CALL 

ZVSRD 

068F 

FB FO 

0001 



06C 1 

D380 

0000 

X 


06C 3 

8700 

116E 

CL 

<SB T FG 

06C 5 

8382 


JMP 

$B2 


RE-INITIALIZE INTERRUPT POINTERS AND VECTORS 

CLEAR STOP BIT TEST FLAG 
JUMP OUT OF TEST 


********* ** **************** **** ****** * * 


STOP BIT TIME CHECKED HERE 


06C6 

C940 

OB 5 E 

SBTE 

C MR 

$R4,SECH 

SEE IF CLOCK TICK WITHIN 

06 C 8 

0803 



8AL 

>SBT El 

ACCEPTED RANGE 

06C9 

F380 

0DC2 


LNJ 

$B7/<E R DB 

ERROR: STOP BITS ARE TOO LONG 

06C 9 

C 9 00 

1224 

SBTE1 

CMR 

$R4,<SECL 


06CD 

OA 03 



BAG 

>SBT E 2 


06CE 

F380 

0OC 2 


LNJ 

$B7,<ERD8 

ERROR: STOP BITS ARE TOO SHORT 

06 DO 

D800 

1 2 E 1 

SBTE2 

LDR 

$R5/<LC3CFR 

LOAD LCT CONFIG. 

06 D 2 

8955 



LBT 

= $R5/ = Z* 080 0* 

SEE IF BIT SET AND SET IT 

06 D 3 

0800 






06D4 

0509 



BBT 

>SBTE3 

IF TRUE TRY SLOW SPEED FOR 1.5 STOP 

06 D 5 

D F 00 

1 2 E1 


STR 

$R5,<LC3CFR 

STORE LCT CONFIG. WITH 2 STOP BITS 

06D7 

5E 20 



ADV 

$R5,=X*20* 


06D8 

DF 00 

1 2 E 2 


STR 

$R5/<LC3CFX 

STORE CONFIG. XMIT 

06 DA 

8A D2 



INC 

= $R 2 

INCREMENT INDEX 

06D8 

OF 80 

0 3 DC 


B 

<NX S PD 1 


06 D D 

2 D 03 


SBTE3 

C MV 

$R2,=3 

SEE IF ALL STOP BIT S CHECKED 

06 D E 

0900 

06 F 2 


BE 

<SBTE4 


06 E 0 

4C02 



LDV 

$R4/=2 

CHANGE CONFIG. FOR 5 BIT CHAR. 

06 E 1 

C F 00 

1 2 E 1 


STR 

$R4,<LC3CFR 

STORE R ECV CONFIG. 

06 E 3 

4E20 



ADV 

$R4 / = X * 20* 


06 E 4 

C F 00 

1 2 E 2 


STR 

$R4,<LC3CFX 

STORE XMIT CONFIG. 

06E6 

8A D2 



INC 

= $R 2 

INCREMENT INDEX 

06 E 7 

C870 

0218 


LDR 

$R4 * ~X * 2 1 8 * 

LDR $R4 TO SET LINE SPEED TO 75 BAUD 

06E9 

0801 



LDR 

$R 5/$9 1 

IF NEW ASYC. RESET $R4 FOR 75 BAUD 

06 E A 

D900 

1 1 BA 


CMR 

$R5 * <A S Y N 


06 E C 

0900 

03 DA 


BE 

<NX S PD 


06 E E 

C870 

0118 


LDR 

$R4/=X * 118* 


06 F 0 

OF 80 

03 DA 


B 

<NXSPD 


06 F 2 

C870 

C002 

SBTE4 

LDR 

$R4/=Z•C002' 

LOAD AND STORE BEGINNING CONF. 

06 F 4 

C F 00 

1 2 E 1 


STR 

$R4,<LC3CFR 

FOR RECV. 

06 F 6 

4E 20 



ADV 

$R4,=X * 20* 


06 F 7 

C F 00 

12E2 


STR 

$R4,<LC3CFX 

FOR XMIT 

06 F9 

OF 80 

047A 


B 

<TS NL 
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001549 




★ 




001550 




* 




001551 




* ♦ + 

+ + + 

+ +4-+++ + -f + + 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

001552 




* 




001553 




* 


CLOOCK INTERRUPT 

ROUTINE 

001554 




★ 




001555 

06F8 

00 05 


NBI TT 

RTC F 


TURN OFF CLOCK 

001556 

06 FC 

F380 

0DC2 


LNJ 

$B7* <ER DB 

ERROR: STATUS NOT COMPLETE AFTER 5 SEC. 

001557 

06 FE 

OB 80 

030C 


LAB 

$B5 *<NX SP01 

RETRY THE LINE 

001558 

0700 

OF 80 

1 2 C A 


STB 

$85* <1SA4P 

WITH SAME CONFIG. 

001559 

0702 

8E 70 

8004 


LEV 

= Z * 8004 * 


001560 

0704 

OF F7 



B 

>N8ITT 


001561 




* 




001562 




* 




001563 




★ 




001 564 




* _ 




001565 




* 




001566 




★ 


PARITY ERROR TEST 


001 567 




★ 




001568 

0705 

C870 

4720 

PARERF 

LOR 

$R4 **A * G ■* 


001 569 

0707 

C F 00 

13A9 


STR 

$R4*<ERMG+1 


001570 

0709 

B3 80 

0BA6 


LNJ 

$83* <CL F G 

CLEAR TEST FLAGS 

001571 

0708 

8A80 

1163 


INC 

< P A R F G 


001572 

070D 

C8 70 

C802 


L DR 

$R4 * S Z * C802 ' 

LOAD CONFIG. ON REC. FOR ODD PARITY 

001573 

070F 

C F 00 

1209 


STR 

$R4*<LC2CFR 


001574 

0711 

CA 70 

1020 


ADD 

$R4*=X'1020' 

SET CONFIG. ON XMIT TO EVEN PARITY 

001575 

0713 

C F 00 

1 2 DA 


STR 

$R4 * <L C 2 C F X 


001576 

0715 

C870 

F017 


LOR 

$R4,=Z'F 017 * 

SET CCP FLAG FOR PARITY ONLY 

001 577 

0 71 7 

C F 00 

12 DO 


STR 

$R4 * <L C T2FG 


001578 

0719 

F870 

OF 18 


LOR 

$ R 7 * = X ' F 18' 

STORE INITIAL SPEED FOR ASYC. LINES 

001579 

0713 

F F 00 

1 2 DB 


STR 

$R7*<LCT2S 


001580 

0710 

7C06 



LOV 

$R7,=6 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER . 

001581 




* 




001582 




* 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

001 583 




★ 


9600 BAUD* WITH 2 

STOP BITS 

001584 




* 




001585 

0 71 E 

9B80 

1 1 BA 


LAB 

$B 1 * <A S Y N 

STORE ADDRESS OF LINE TYPE 

001586 

0720 

83 80 

0 A 8C 


LNJ 

$83*<DTAL0P 

GO TO LOOP SUB-ROUTINE 

001587 

0722 

0F 85 



B 

>T3 9 


001588 

0723 

1322 



DC 

< W C P 2 

ADDRESS TABLE FOR BLOCK WRITE 

001589 

0724 

1207 



DC 

<L C T 2 

LCT TABLE 

001590 

0725 

003F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 

001591 

0726 

11 E3 



DC 

< 0 0 U T 


001592 




* 




001593 




★ 




001594 




* 


TEST ASYCHRONOUS LINES WITH NEW BAUD RATES 

001595 




* 


19200 BAUD/ WITH 

2 STOP BITS 

001596 

0727 

96 80 

1 1 BB 

T 59 

LAB 

$81*<ASYN1 

LOAD LINE TYPE 

001 597 

0729 

B3 80 

0A8C 

T 39 A 

LNJ 

$B3*<DTAL0P 

GO TO LOOP SUB-ROUTINE 




. 4 ' 
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001598 

072B 

OF 85 



B 

>T4 0 


001599 

072C 

1322 



DC 

<WCP2 

ADDRESS TABLE FOR BLOCK WRITE 

001 600 

0720 

1207 



OC 

<L C T 2 

LCT TABLE 

001 601 

072E 

00 3F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 

001602 

0 7 2 F 

11E3 



DC 

<DOUT 


001603 




* 




001604 




* 


TEST CURRENT LOOP ASYNCHRONOUS 

001 605 




★ 




001606 

0730 

C 8 71 


T40 

LOR 

$R4*+$B1 

LOAD ID TYPE INTO $R4 

001607 

0731 

C900 

1 1 8C 


CMR 

$R4*<ASYNC 

CHECK TO SEE IF ALREADY DONE 

001608 

0733 

09 02 



BE 

> T4 0 A 


001 609 

0734 

OF F5 



B 

>T39 A 


001610 


0735 


T40 A 

EQU 

$ 


00161 1 

0735 

F8 70 

3218 


LDR 

$R7,*X*3218* 

STORE SYNC. CHAR. INTO LCT TABLE 

001612 

0737 

F F 00 

1 2 OB 


STR 

$R7# <LC T2S 


00161 3 

0739 

7C 28 



LOV 

$R7*=40 

NUMBER OF 30 MS TIME DELAYS 

001614 




★ 




001615 




* 


TEST SYNCHRONOUS LINES 

<32 AS SYNC. CHAR.) 

001616 




★ 




001617 

073A 

9B80 

1 1 BD 


LAB 

$B1*<SYNC 

LOAD LINE TYPE 

001618 

073C 

8380 

0 A 8C 

QA4 

LNJ 

$83* < D T A LOP 

GO TO LOOP SUB-ROUTINE 

001 619 

073E 

OF 85 



B 

>T4 1 


001620 

0 7 3 F 

1322 



DC 

<WCP 2 

ADDRESS TABLE FOR BLOCK WRITE 

001 621 

0740 

12 07 



DC 

< L C T 2 

LCT TABLE 

001622 

0741 

00 2F 



DC 

(DFLT-D0UT1 ) 

RANGE IN WORDS 

001623 

0742 

11 F 3 



DC 

<D0U T1 


001624 




Hr 




001625 




★ 


TEST BI-SYNCHRONOUS LINES <32 AS SYNC. CHAR.) 

001626 




★ 




001627 

0743 

C 8 71 


T41 

LDR 

$R4 * +$B1 

LOAD ID TYPE INTO $R4 

001628 

0744 

C900 

1 1 BE 


CMR 

$R4 *<8ISYNC 

CHECK TO SEE IF ALREADY DONE 

001 629 

0746 

09 02 



BE 

>T4 2 


001630 

0747 

OF F5 



B 

>QA4 


001631 




* 




001632 




* 


TEST MIL 188 SYNCHRONOUS (32 AS SYNC. CHAR.) 

001633 




★ 




001634 

0748 

9B80 

1 1 BF 

T42 

LAB 

$B1* <S Y N188 

LOAD LINE TYPE 

001635 

0 74 A 

83 80 

0 A 8C 


LNJ 

$B3* <D TALOP 

GO TO LOOP SUB-ROUTINE 

001636 

074C 

0F 85 



B 

>T4 3 


001637 

0740 

1322 



DC 

<WCP2 

I ORB ADDRESS FOR BLOCK WRITE 

001638 

0 74E 

12D7 



DC 

<LC T 2 

LCT TABLE 

001 639 

074 F 

002F 



DC 

<DF L T-D0UT1 ) 

RANGE IN WORDS 

001640 

0750 

1 1 F 3 



DC 

< D 0 U T1 


001 641 




★ 




001642 




* 




001643 




* 


TEST WIDEBAND 301/303 

(3A AS SYNC. CHARACTER) 

001644 




* 




001 645 

0751 

9B80 

1322 

T43 

LAB 

$B1*<WCP2 

LOAD ADDRESS OF MEDIUM SPEED ADDRESS TABLE 

001646 

0753 

8980 

1 1 5E 


CMZ 

<HG S PD 

CHECK FOR HIGH SPEED LINE 
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0016A 7 

0755 

0903 



BE 

> T 4 3 X 


001648 

0756 

9B80 

1 3 3 F 


LAB 

$B1*<WCP8 

LOAD ADDRESS OF HIGH SPEED ADDRESS TABLE 

001649 

0758 

9 F 80 

076F 

T4 3 X 

STB 

$B1,<T43Z 

STORE INTO DTALOP SUB-ROUTINE 

001650 

075A 

9 F 80 

0761 


STB 

$B1/<T 4 3 Y 


001651 

075C 

9B80 

11 CO 


LAB 

$B1*<WD83 

LOAD ADDRESS OF LINE TYPE 

001652 

075E 

83 80 

0 A8C 

T43YY 

LNJ 

$83/ <0 T ALOP 

LOOP SUB-ROUTINE 

001 653 

0760 

OF 85 



9 

> T 4 4 A 


001654 

0761 

0000 


T43Y 

RESV 

$AF,0 


001655 

0762 

1207 



OC 

<LC T 2 


001 656 

0763 

003F 



DC 

(DFLT-DOUT) 


001657 

0764 

11 E3 



OC 

< 0 01) T 


001658 




* 




001659 




* 


TEST BI-SYNC. 

WIDEBAND 301/303 <3A AS SYNC. CHAR.) 

001660 




★ 




001 661 

0765 

C 8 71 


. T44A 

LOR 

$R4,+$B1 

LOAD ID TYPE INTO $R4 

001 662 

0766 

C9 00 

11 Cl 


CMR 

$R4 # <W D B 3 B 

CHECK TO SEE IF ALREADY DONE 

001663 

0768 

0902 



BE 

>T4 4 


001664 

0769 

OF F5 



B 

> T 4 3 Y Y 


001665 




* 




001666 




* 


TEST WIDEBAND 

V 35 (3 A AS SYNC. CHAR. ) 

001667 




★ 




001668 

0 76 A 

9B80 

11 C 2 

T44 

LAB 

$B1,<WDBV35 

LOAD ADDRESS OF LINE TYPE 

001669 

076C 

8380 

0A8C 

T43ZZ 

LNJ 

$B3/<0T ALOP 


001670 

076E 

0 F 85 



B 

>T4 5 A 


001671 

076F 

0000 


T43Z 

RESV 

$AF,0 


001672 

0770 

1207 



DC 

<LC T2 


001673 

0771 

003F 



OC 

(DFLT-DOUT) 


001674 

0772 

11 E3 



OC 

< DOU T 


001675 




★ 




001 676 




* 


TEST BI-SYNC. 

WIDEBAND V35 < 3 A AS SYNC. CHAR.) 

001677 




★ 




001 678 

0773 

C 8 71 


T4 5 A 

LOR 

$R4,+$B1 

LOAD ID TYPE INTO $R4 

001679 

0774 

C900 

1.1 C 3 


CMR 

$R4 * <W0BV5B 

CHECK TO SEE IF ALREADY DONE 

001680 

0776 

0902 



BE 

>T4 5 


001681 

0777 

OF F5 



B 

>T4 3 Z Z 


001682 




★ 




001683 

0778 

8700 

1163 

T45 

CL 

<PA R FG 


001684 

077A 

8382 



JMP 

■ $B2 


001685 




★ 




001 686 




★ * * 

* * * 

******* 

************************* 

001687 




* 



• 

001688 




* 


CHECK PARITY 

ERROR BIT SET 

001689 




★ 




001690 

07 78 

C 3 80 

0025 

PARI 

LNJ 

$B4# <INX T 

INPUT NEXT STATUS 

001691 

0770 

8205 



LB 

= $R 5 *= X 1 1000* 


077E 

1000 






001692 

0 77F 

0503 



BBT 

>PA R 2 

- 

001693 

0780 

F 3 80 

ODBA 


LNJ 

$B7* <E R MB 

ERROR: STATUS COMPLETE BIT NOT SEt 

001694 

0782 

8205 


PAR 2 

LB 

=$R5*=X*40* 

SEE IF DATA CHECK ERROR BIT SET 



"X, 
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0783 

0040 





001695 

0784 

0503 



BBT 

>PA R 3 

001696 

0785 

F3 80 

OOBA 


LNJ 

$B7/<ERMB ERROR: DATA CHECK ERROR BIT NOT SET 

001697 

0787 

8AD3 


PAR 3 

INC 

= $R 3 

001698 

0788 

C380 

0025 


LNJ 

$B4/<IN X T INPUT NEXT STATUS 

001699 

078A 

8205 



LB 

= $R5, = X * 1000* 


0788 

1000 





001700 

078C 

0503 



BBT 

> P A R 4 

001701 

0780 

F380 

ODBA 


LNJ 

$87/<ERMB ERROR: STATUS NOT COMPLETE ON XMIT SIDE 

001702 

0 78 F 

8205 


PAR4 

LB 

= $R5, = X *40 4 


0790 

0040 





001703 

0791 

0583 



8BF 

>P A R 5 

001704 

0792 

F3 80 

OOBA 


LNJ 

$B7/<ERMB ERROR: DATA CHECK ERROR BIT SET ON XMIT 

001705 

0794 

OF 80 

OBAO 

PARS 

B 

< J PSA 

001706 




* 



001707 




★ 



001708 




* _ 



001709 




' * 



001710 




★ 


STOP I/O TEST 

00171 1 




★ 



001712 

0796 

C 8 70 

4820 

STIOG 

L DR 

$ R 4 / = A 1 H * 

001713 

0798 

C F 00 

13A9 


STR 

$R4 * <E RMG + 1 

001714 

0 7 9 A 

8380 

08A6 


LNJ 

$83/<CLFG CLEAR ALL TEST FLAGS 

001715 

0 79C 

A800 

1 1 C 6 


LOR 

$ R 2 / < B IT2 LOAD $R2 WITH FUNCTION COMMAND 

001716 

079E 

8A80 

1170 


INC 

< S T P F G 

001717 

07A0 

8700 

12F6 


CL 

CLC5SYF CLEAR SYNC. FLAG FOR ASYNC. LINES 

001718 

07A2 

C870 

OF 1 8 


L DR 

$R4/=X * F18* 

001 719 

0 7 A 4 

C F 00 

1 2 F 2 


STR 

$R4,<LCT5S 

001720 

07A6 

7C02 



LDV 

$R7/=2 NUMBER OF 30 MS DELAY 

001721 




* 



001722 




* 


TEST ASYNCHRONOUS LINES WITH OLD BAUD RATES 

001723 




* 


AT 9600 BAUD/ WITH 2 STOP 8ITS 

001724 




★ 



001725 

07A7 

9B80 

1 1 BA 


LAB 

$B1/<ASYN STORE ADDRESS OF LINE TYPE 

001726 

07 A9 

B380 

0 A 8C 


LNJ 

$B3/<DT ALOP GO TO LOOP SUB-ROUTINE 

001727 

07A8 

0F 85 



8 

>T1 9 

001728 

0 7 A C 

1310 



DC 

<WCP1 ADDRESS TABLE FOR BLOCK WRITE 

001729 

0 7 A 0 

1 2 EE 



DC 

<LC T 5 LCT TABLE 

001730 

0 7 A E 

01 B6 



DC 

438 RANGE IN WORDS 

001731 

0 7 A F 

11E3 



DC 

< DO U T TRANSMIT BUFFER 

001732 




★ 



001733 




★ 


TEST ASYNCHRONOUS LINES WITH NEW BAUD RATES 

001734 




★ 


AT 19200 BAUD/ WITH 2 STOP BITS 

001735 




★ 



001 736 

07B0 

9B80 

1 1 B8 

T 1 9 

LAB 

$B1/<ASYN1 LINE TYPE 

001737 

0782 

B380 

0 A 8C 

T 1 9 A 

LNJ 

SB3/<DT A LOP 

001738 

0784 

OF 85 



B 

>T20 

001739 

07B5 

1310 



DC 

<WCP1 

001740 

0786 

1 2 EE 



DC 

< L C T 5 
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PACE 0040 


001741 

0787 

01 86 



OC 

438 

RANGE IN WOROS 


001742 
001743 

0788 

11 E3 


★ 

OC 

<00U T 

TRANSMIT BUFFER ADDRESS 


001744 




★ 


TEST CURRENT LOOP 

ASYNCHRONOUS 


001745 




★ 





001746 

0 789 

C.8 71 


T20 

LDR 

$R4,+$B1 

LOAD ID TYPE INTO $R4 


001747 

0 78 A 

C900 

1 1 BC 


CM R 

$R4/<ASYNC 

CHECK TO SEE IF ALREADY DONE 

001748 

07BC 

0902 



BE 

>T20 A 



001749 

078D 

OF f 5 



B 

>T 1 9 A 



001750 


07 BE 


T20A 

EQU 

$ 



001751 

078E 

C870 

3 A 1 8 


LDR 

$R4,=X* 3A18* 

PUT IN SYNC. CHARACTER TO 

TEST 

001752 

07C 0 

C F 00 

12F2 


STR 

$R4/<LCT5S 

SYNC. LINE TYPES 


001753 

07C2 

C870 

02 1 C 


LOR 

$R4/=X*21C' 

SET LCT SYNC. FLAG 


001754 

0 7 C 4 

C F 00 

12F6 


STR 

$R4,<LC5SYF 



001755 
001756 

07C6 

7C05 


★ 

LDV 

$ R 7 ✓ = 5 

NUMBER OF 30 MS DELAY FOR 

800 BAUD 

001757 




* 


TEST SYNCHRONOUS 

(3A AS SYNC. CHAR.) 


001 758 
001759 

07C7 

9880 

11 80 

★ 

LAB 

$ B1 / < S Y N C 

LOAD LINE TYPE 


001760 

07C9 

8380 

0A8C 

QA5 

LNJ 

$83/<DTAL0P 

LOOP SUB-ROUTINE 


001761 

07C3 

OF 85 



B 

> T 2 1 



001762 

0 7 C C 

1310 



OC 

<WCP1 



001763 

07CD 

1 2 EE 



DC 

<LC T 5 



001764 

07 C E 

01 86 



OC 

438 



001765 
001766 

07CF 

11 F3 


* 

OC 

< 0 0 U T1 



001 767 




* 


TEST BI-SYNCHRONOUS LINES C 3 A AS SYNC, CHAR.) 


001768 




* 





001769 

0700 

C871 


T 21 

LDR 

$R4,+$01 

LOAD ID TYPE INTO $R4 


001770 

0701 

C900 

1 1 BE 


CMR 

$R4,<3ISYNC 

CHECK TO SEE IF ALREADY DONE 

001771 

0703 

09 02 



BE 

>T2 2 



001772 
001773 

0704 

OFFS 


★ 

B 

>Q A 5 



001774 




* 


TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR.) 


001775 




* 





001776 

0 7 D 5 

9880 

1 1 BF 

122 

LAB 

$81,<SYN188 

LOAD LINE TYPE 


001777 

0707 

8380 

0 A 8C 


LNJ 

$83/<0 T A LOP 

LOOP SUB-ROUTINE 


001778 

07D9 

OF 85 



B 

>T2 3 



001 779 

07DA 

13 10 



DC 

<WC PI 



001780 

0708 

1 2 EE 



OC 

<LC T5 



001781 

0 7 DC 

01 86 



DC 

438 



001782 
001783 

07D0 

1 1 F3 


it 

DC 

< 0 0 U T1 



001784 




* 


TEST WIDEBAND 301/303 (3A AS SYNC. CHARACTER) 


001785 




* 





001 786 

0 7 0 E 

8A80 

1171 

T 23 

INC 

<WD8 FG 

SET BROADBAND FLAG 


001 787 

07E0 

8757 



CL 

= $ R 7 



001788 

07 E1 

9B 80 

11 CO 


LAB 

$B1,<WDB3 

LOAD ADDRESS OF LINE TYPE 


001789 

07E3 

B380 

0A8C 

T 23 A 

LNJ 

$B3/<D T ALOP 

LOOP SUB-ROUTINE 
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001790 

07E5 

OF 85 



B 

>T3 3 A 



001791 

0 7 E 6 

1338 



OC 

<WCP 7 



001792 

07E7 

1 2 E E 



DC 

<L C T 5 



001793 

07E8 

01 86 



DC 

438 



001794 

07E9 

1 1 E3 



DC 

< D OU T 



001795 




* 





001796 




* 


TEST BI-SYNC. 

WIDE8AND/301/303 (3A AS SYNC. CHAR.) 

001797 




* 





001798 

07EA 

C8 71 


T 3 3 A 

LDR 

$R4 * +$B 1 


LOAO ID TYPE INTO $R4 

001799 

0 7£ 8 

C900 

1 1 Cl 


CMR 

$R4,<WD838 


CHECK TO SEE IF ALREADY DONE 

001 800 

07ED 

09 02 



BE 

>T33 



001801 

0 7 E E 

OF F5 



B 

>T2 3 A 



001 802 




★ 





001803 




* 


TEST WIDEBAND 

V 35 (3A 

AS SYNC. CHAR.) 

001 804 




* 





001805 

07EF 

9B 80 

11 C 2 

T33 

LAB 

$B1,<WDBV35 


LOAD ADDRESS OF LINE TYPE 

001806 

0 7 F 1 

8380 

0A8C 

T33Z 

LNJ 

$B3* <DTALOP 



001 807 

07 F 3 

OF 85 



B. 

>T3 4 A 



001808 

0 7 F 4 

13 38 



DC 

< W C P 7 



001809 

0 7 F 5 

1 2 EE 



DC 

<LC T 5 



001810 

07F6 

01 B6 



DC 

438 



001811 

0 7 F 7 

11 E3 



DC 

<DOU T 



001812 




* 





001813 




* 


TEST BI-SYNC. 

WIDEBAN D 

V35 < 3A AS SYNC. CHAR.) 

001814 




★ 





001815 

0 7 F 8 

C 8 71 


T34 A 

LDR 

$R4*+$8l 


LOAD ID TYPE INTO $R4 

001 816 

07F9 

C900 

11 C 3 


CMR 

$R4* <WDBV58 


CHECK TO SEE IF ALREADY DONE 

001817 

O7F0 

0902 



BE 

>T34 



001818 

0 7 F C 

OF F5 



B 

>T33 Z 



001819 




★ 





001 820 

0 7 F 0 

8700 

11 70 

T34 

CL 

< S T P F G 


CLEAR STOP I/O FLAG 

001821 

0 7 F F 

8382 



JMP 

$B2 



001822 




* 





001823 




* 





001824 




* * * 

★ * * 

******* 

* * * * 

**************** 

001825 




* 





001826 




* 


STOP I/O CHECK 

ROUTINE 


001827 




* 





001828 

0800 

8 A 03 


STIQ 

INC 

= $R 3 


CHANGE TO TRASMIT SIDE OF LINE 

001829 

0801 

C 3 80 

00 1 E 

STIQ1 

LNJ 

$B4,<STCR 


STOP I/O 

001830 




* 





001 831 

0803 

C380 

0025 


LNJ 

$B4,<INXT 


INPUT NEXT STATUS 

001832 

0805 

82D5 


STIQ5 

LB 

= $R5, = Z * 1000* 

CHECK STATUS COMPLETE 


0806 

1000 







001833 

0807 

05 03 



BBT 

>TS T F 3 



001 834 

0808 

F380 

00 C 2 


LNJ 

$B7,<ERDB 


ERROR: STATUS NOT COMPLETE 

001835 

080A 

C 3 80 

002B 

TSTF3 

LNJ 

$B4 * <1 NR G 


INPUT RANGE 

001836 

080C 

5983 



BN E Z 

SR5/>T ST F4 



001837 

08 0D 

F380 

00 C 2 


LNJ 

$B7,<ERDB 


ERROR: RANGE IS EQUAL TO ZERO 
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001838 

080 F 

3B00 

082E 

T ST F4 

8EVN 

$R3,<TSTF4A 

IF EVEN BOTH SIDE OF THE LINE SHUT-OFF 

001839 

0811 

88 D3 



DEC 

= $R 3 

CHANGE $R3 TO RECEIVE SIDE OF THE LINE 

001 840 

0812 

O F 00 

1 1 6C 


STR 

$R 5#<TP1 

STORE XMIT RANGE RESIDUE 

001841 

0814 

89 80 

1 1 71 


CMZ 

< W 0 B F 6 

SEE IF BROADBAND LINE 

001842 

0816 

09 14 



BE 

>STIQ2 

SHUT RECV. LINE OFF AFTER 70 TRANSFERS 

001843 

0817 

C 3 80 

0025 


LNJ 

$B4,<INXT 

INPUT NEXT STATUS 

001844 

0819 

C 3 80 

0 0 2 B 

STIQ3 

LNJ 

$B4</<INRG 

INPUT RANGE 

001845 

0819 

0970 

0220 


CMR 

$ R 5 * = X 1 220* 

SEE IF 166 TRANSFERS HAVE BEEN DONE 

001846 

0810 

0A7C 



BAG 

> S T I Q 3 

IF DONE 

001847 

081 E 

C 3 80 

001 E 


LNJ 

$84*<S T C R 

STOP I/O ON RECV. 

001848 




* 




001849 

0820 

C800 

1 1 44 


L DR 

$R4,<FIS 

INPUT STATUS 

001850 

0822 

C 3 80 

0D95 


LNJ 

$84,<CGSCH 


001851 

0824 

8055 



10 

= $R 5, = SR4 



0825 

00 54 






001852 

0826 

0703 



BIOT 

> ST I Q4 


001853 

0827 

F380 

OOBA 


LNJ 

$B7,<ERMB 


001854 

0829 

OF DC 


STIQ4 

B 

> ST 105 


001855 




★ 




001856 

082 A 

7C03 


STIQ2 

LDV 

$R7,=3 


001857 

082B 

03 80 

0063 


LNJ 

$B5* <T OLAY 

TIME DELAY BEFORE SHUTTING OFF RECEIVE 

001858 

0820 

OF 04 



8 

>STIQl 


001859 




* 




001860 




* 

CHECK 

: RECEIVED DATA 


001861 




* 




001 862 

082E 

C800 

11 3F 

TSTF4A 

LOR 

$R4,<F0CC 

CCB RESET FOR REC 

001863 

0830 

C380 

0095 


LNJ 

$84 #<C GS CH 


001864 

0832 

8000 

1 1 C 9 


10 

<BIT7,=$R4 



0834 

00 54 






001865 

0835 

0703 



BIOT 

>QT 2 


001866 




* 




001867 

0836 

F380 

OOBA 


LNJ 

$87* <E RMB 

ERROR: I/O WAS NAK * E D 

001868 




★ 




001869 

0838 

8AD3 


Q T 2 

INC 

= $R3 


001 870 

0839 

C8 00 

1 1 3F 


LOR 

$R4*<F0C C 

CCB RESET FOR TRANSMIT 

001 871 

0838 

C 3 80 

0D95 


LNJ 

$B4*<CGSCH 


001872 

0830 

8000 

1 1 C 9 


10 

<BIT7*=$R4 



083 F 

00 54 






001873 

0840 

0703 



BIOT 

>QT 1 


001874 




* 




001875 

0841 

F3 80 

OOBA 


LNJ 

$8 7* <£ R M8 

ERROR: I/O WAS NAK * E D 

001876 




* 




001 877 

0843 

DF 00 

11 60 

QT1 

STR 

$R5#<TP2 

STORE RECEIVE RANGE RESIOUE 

001878 

084 5 

E380 

08B7 


LNJ 

$B6* <BAS E 

LOAD $R 5 WITH LCT BASE 

001 879 

0847 

5 E 10 



AO V 

$R5✓=16 


001 880 

0848 

0 F 00 

084F 


STR 

$R5^<TSTF28 


001881 

084 A 

5E20 



A 0 V 

$R5 * =X * 20* 


001882 

084B 

0 F 00 

0858 


STR 

$R5*<TSTF88 


001883 




* 
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c 


001884 

08 4 D 

E380 

0D75 


LNJ 

$B6#<RDLCT 

001885 

084 F 

0000 


TSTF2B 

DC 

0 

001886 

0850 

0002 



DC 

2 

001887 




★ 



001888 

0851 

8980 

1 1 73 


CMZ 

<LC T V 

001889 

0853 

0903 



BE 

>TS T F7K 

001890 

0854 

F380 

0DC2 


LNJ 

SB7#<ERDB 

001891 




★ 



001 892 

0856 

E380 

OD 75 

TSTF7K 

LNJ 

$B6 # <R D L C T 

001893 

0858 

0000 


T STF8B 

DC 

0 

001894 

0859 

0002 



DC 

2 

001895 




* 



001 896 

08 5 A 

8980 

1173 


CMZ 

<L C T V 

001 897 

085C 

0903 



BE 

> T S T F 2 

001898 

08 5 D 

F380 

OD C 2 


Ltfj 

$B7#<ERDB 

001899 

0 8 5 F 

9800 

1166 

TSTF2 

L DR 

SRI#<RANGE 

001 900 

0861 

9F00 

1 1 5C 


STR 

SRI * < F B R G 

001901 

0863 

1001 



SOL 

SRI # 1 

001902 

0864 

9200 

116C 


SUB 

SRI#<TP1 

001903 

0866 

1041 



SOR 

SRI # 1 

001904 

0867 

88D1 



DEC 

= SR 1 

001905 

0863 

9 F 00 

1166 


STR 

SRI#<RANGE 

001906 




★ 



001907 

086A 

89 80 

12F6 


CMZ 

<LC 5 SYF 

001908 

086C 

0917 



BE 

>TS TF4C 

001909 

086D 

IE 04 



ADV 

SRI # =4 

001910 

086E 

• C800 

11 6 C 


LDR 

SR4#<TP1 

00191 1 

0870 

C 2 00 

1 16D 


SUB 

$R4#<TP2 

001 912 

0872 

4041 


# 

SOR 

SR4 # 1 

0019.13 

0873 

C A 51 



ADD 

SR4#=$R1 

001914 

0874 

4 E F9 



ADV 

$R4#-7 

001915 

0875 

C F 00 

1 16D 


STR 

$R4#<TP2 

001916 

0877 

C870 

AAA A 


LDR 

SR4#=Z'AAAA ' 

00191 7 

0879 

C910 

1C00 

TS T F 5 A 

CMR 

SR4# <DIN.SR 1 

001 918 

0879 

0903 



BE 

> TS T F 5 

001919 

0 87C 

F380 

0DC2 


LNJ 

$B7#<ERD8 

001 920 

08 7 E 

8AD1 


TSTF5 

INC 

= $ R 1 

001921 

087 F 

9900 

116D 


CMR 

SRI#<TP2 

001922 

0881 

0882 



BAGE 

>TS T F4C 

001923 

0882 

OF F7 



B 

>TS T F 5 A 

001924 




* 



001 925 

0883 

C800 

1222 

TST F4C 

LDR 

$R4#<DFLT 

001926 

0885 

1 E 07 



ADV 

SRI # =7 

001927 

0886 

C910 

1C00 

T STF4D 

CMR 

$R4#<DIN,SR1 

001 928 

0888 

0903 



BE 

>TS T F4E 

001929 

0889 

F380 

0 D C 2 • 


LNJ 

$B7#<E R DB 

001 930 

088B 

8 A D1 


TST F4E 

INC 

-SR 1 

001931 

088C 

9900 

11 5 C 


CMR 

SRI # < F 8 R G 

001932 

08 8 E 

08 78 



BAL 

>TST F4D 


READ LCT 
A D D R E S S 

ERROR: RE C V * LCT STATUS NOT CLEAR 

READ LCT 

CHECK LCT STATUS IS CLEARED 

ERROR: LCT STATUS IS NOT CLEAR 

CALCULATE RANGE OF GOOD DATA TO BE CHECK 

CHANGE TO BYTE RANGE 

CHANGE TO WORDS 

CHECK FOR SYNC LINE 

SYNC LINE CHECK FOR LINE MARKING 

LINE MARKING DATA 

ERROR: SYNC* LINE NOT MARKING WITH XMIT OfF 

SEE IF ALL MARKING DATA CHECK 

CHECK REMAINING DATA IS DEFAULT <5555) 

ERROR:RECEIVE DATA IN NO DATA AREA 
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001933 

088 F 

0 F 80 

OB 53 


B 

<J P 4 

CHECK FINAL GOOD DATA IN OTALOP 

001934 




* 




001935 




* 




001 936 




* _ 




001937 




★ 




001938 




* 




001939 




★ 


UNDERRUN AND OVERRUN TEST 

001 940 




' * 




001941 

0891 

C 8 70 

4A20 

UORNTH 

LOR 

$R4/=A*J * 


001942 

0893 

C F 00 

13A9 


STR 

$R4/<E RMG +1 


001943 

0895 

B380 

0BA6 


LNJ 

$B3/<CLFG 

CLEAR ALL TEST FLAGS 

001944 

0897 

8700 

1313 


CL 

< L C T 8 F G 


001 945 

0899 

8A80 

1171 


INC 

<WDB FG 


001946 

0898 

8A80 

116A 


INC 

<RUNF6 

SET UNDERRUN AND OVERRUN TEST FLAG 

001947 

0890 

C870 

021 D 


LOR 

$R4,=X* 21D* 


001 948 

089 F 

C F 00 

1 2 F F 


STR 

$R4,<LCT6TF 


001949 

08A1 

7C06 



LOV 

$R7/=6 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

001950 

08A2 

C 8 70 

OF 1 8 


LDR 

$R4/*X* FI 8* 

SET LINE SPEED FOR ASYC. LINES 

001951 

08A4 

C F 00 

1 2FD 


STR 

$R4,<LCT6S 


001952 




★ 




001953 




* 


TEST ASYNCHRONOUS 

LINES WITH OLD BAUD RATES 

001954 




★ 


9600 BAUD# WITH 1 STOP BIT 

001955 




* 




001956 

08A6 

9B80 

11 BA 


LAB 

$81,<ASYN 

STORE ADDRESS OF LINE TYPE 

001957 

08A8 

8380 

0A8C 


LNJ 

$B3/<DTALOP 

GO TO LOOP SU8-R0UTINE 

001958 

08 AA 

OF 85 



B 

>T2 4 


001959 

0 8 A B 

132C 



DC 

< WC P 4 

ADDRESS TABLE FOR BLOCK WRITE 

001960 

08 AC 

12F8 



DC 

<LC T 6 

LCT TABLE 

001961 

0 8 A 0 

00 3F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 

001962 

08 AE 

11 E3 



DC 

< DOU T 


001963 




★ 




001964 




* 


TEST ASYCHRONOUS 

LINES WITH NEW BAUD RATES 

001965 




* 


19200 BAUD/ 

WITH 1 STOP BIT 

001966 




★ 




001967 

0 8 A F 

98 80 

1 1 B8 

T24 

LAB 

$81 / < A S Y N1 

LOAD LINE TYP,E 

001968 

0881 

B380 

0A8C 

T24Z 

LNJ 

$B3/<DTAL0P 

GO TO LOOP SUB-ROUTINE 

001969 

0883 

0 F 85 



8 

>T 2 5 


001 970 

08B4 

1 3 2 C 



DC 

< W C P 4 

ADDRESS TABLE FOR BLOCK WRITE 

001971 

08B5 

12F8 



DC 

<LC T 6 

LCT TABLE 

001972 

08B6 

003F 



DC 

(DFLT-DOUT) 

RANGE IN WORDS 

001973 

08B7 

11E3 



DC 

<DOUT 


001974 




* 




001975 




* 


TEST CURRENT LOOP 

ASYNCHRONOUS 

001976 




* 




001977 

08B8 

C871 


T 2 5 

LDR 

$R4,+$81 

LOAD ID TYPE INTO $R4 

001978 

08B9 

C900 

11 BC 


CMR 

$R4/<ASYNC 

CHECK TO SEE IF ALREADY DONE 

001979 

08B9 

09 02 



BE 

> T 2 5 Z 


001980 

08BC 

OF F5 



B 

>T2 4 Z 


001981 


08 BO 


T25Z 

EQU 

$ 




TITLE DCMVA 


07/28/78 1733.9 edt Fri 


HRS ASSEMBLER 5.05 


PAGE 0045 


001982 

08B0 

8700 

1 1 71 


CL 

<WDB FG 


001 983 

08BF 

F 8 70 

401 D 


LOR 

$R 7 * =Z ' 4 01 D 1 


001 984 

08 C 1 

F F 00 

1 2 F F 


STR 

$R7,<LCT6TF 


001985 

08 C 3 

F870 

1618 


LOR 

$R7,=Z*1618* 

STORE SYNC. CHAR. INTO LCT TA8LE 

001986 

08C5 

F F 00 

1 2 F D 


STR 

$R7,<LC T6S 


001987 

08 C 7 

7C 40 



LDV 

$R 7* =X'40* 

NUMBER OF 30 MS TIME DELAYS 

001988 




* 




001989 




* 


TEST SYNCHRONOUS LINES 

<16 AS SYNC. CHAR.,) 

001990 




* 




001991 

08C8 

9B80 

1 1 BO 


LAB 

$B1,<SYNC 

LOAD LINE TYPE 

001992 

08 C A 

B380 

0A8C 

QA6 

LNJ 

$B3* <DT ALOP 

GO TO LOOP SUB-ROUTINE 

001993 

08C C 

OF 85 



8 

>T26. 


001994 

08 C D 

132C 



DC 

<WC P4 

ADDRESS TABLE FOR BLOCK WRITE 

001995 

08CE 

12 F8 



DC 

<LCT6 

LCT TABLE 

001996 

08C F 

00 2 F 



DC 

(DFLT-DOUTl ) 

RANGE IN WORDS 

001997 

0800 

11 F 3 



DC 

< DOU T 1 


001 993 




* 




001999 




* 


TEST BI-SYNCHRONOUS LINES <16 AS SYNC. CHAR.) 

002000 




* 




002001 

0801 

C 8 71 


T26 

LOR 

$R4,+$81 

LOAD ID TYPE INTO $R4 

002002 

0802 

C 9 00 

1 1 BE 


CMR 

$R4,<8ISYNC 

CHECK TO SEE IF ALREADY DONE 

002003 

0804 

09 02 



BE 

>T27 


002004 

0805 

OF F5 



B 

>QA6 


002005 




★ 




002006 




★ 


TEST MIL 188 SYNCHRONOUS <16 AS SYNC. CHAR.) 

002007 




* 




002008 

0806 

9B80 

1 1 BF 

T27 

LAB 

SB1,<SYN188 

LOAD LINE TYPE 

002009 

0808 

B380 

0 A 8C 


LNJ 

$B3* <D T ALOP 

GO TO LOOP SUB-ROUTINE 

00201 0 

08 DA 

OF 85 



B 

>T2 8 


00201 1 

08DB 

132C 



DC 

<WCP4 

ADDRESS TABLE FOR BLOCK WRITE 

00201 2 

08 DC 

12F8 



DC 

<LC T 6 

LCT TABLE 

002013 

080 D 

002F 



DC 

<DFLT-D0UT1) 

RANGE IN WORDS 

00201 4 

08 0 E 

11 F3 



DC 

<D0UT1 


002015 




* 




00201 6 




★ 




002017 




* 


TEST WIDEBAND 301/303 

< 3A AS SYNC. CHARACTER) 

00201 8 




* 




002019 

080 F 

8A80 

1 1 71 

T 28 

INC 

<WDB FG 


002020 

08 E 1 

C 8 70 

01 IE 


LDR 

$R4,=X*1 1 E 1 

SET LCT FLAG FOR OVERRUN 

002021 

08E 3 

CFOO 

1313 


STR 

$R4,<LCT8FG 


002022 

08 E 5 

9B 80 

1 ICO 

T48 

LAB 

$B1 * <WDB3 

LOAD ADDRESS OF LINE TYPE 

002023 

08E 7 

B380 

0 A 8C 

T 4 8 Z 

LNJ 

$B3,<DTAL0P 

LOOP SUB-ROUTINE 

002024 

08 E 9 

OF 85 



B 

> T3 1 A 


002025 

08 E A 

1333 



DC 

< WC P 6 


002026 

08E8 

13 08 



DC 

< L C T 8 


002027 

0 8 E C 

003F 



OC 

<DFLT-DOUT) 


002028 

08 E 0 

11 E3 



DC 

< 0 0 U T 


002029 




* 




002030 




* 


TEST BI-SYNC. WIDEBAND 

301 /303 <3A AS SYNC. CHAR.) 


t 
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002031 




* 




002032 

08EE 

C871 


T31 A 

LOR 

$R4 # +$ B1 

LOAD ID TYPE INTO $R4 

002033 

08EF 

C9 00 

11 C1 


CMR 

$R4,<WDB3B 

CHECK TO SEE IF ALREADY DONE 

00.2034 

08 F 1 

0902 



BE 

>T3 1 


002035 

08 F 2 

OF F5 



B 

>T4 82 


002036 




* 




002037 




* 


TEST WIDEBAND 

V35 C 3 A AS SYNC. CHAR.) 

002038 




* 




002039 

08 F 3 

9B80 

11 C 2 

T31 

LAB 

$B1 * < W D 8 V 3 5 

LOAD ADDRESS OF LINE'TYPE 

002040 

08F5 

B3 80 

0A8C 

T31 1 

LNJ 

$B3,<DTAL0P 


002041 

08 F 7 

OF 85 



B 

>T32 A 


002042 

08 F 8 

1333 



OC 

<WCP6 


002043 

08F9 

13 OB 



DC 

CLCT8 


002044 

08 FA 

003F 



DC 

< DfLT-DOUT) 


002045 

08 FB 

11 E3 



DC 

<DOU T 


002046 




* 




002047 




it 


TEST BI-SYNC. 

WIDEBAND V 3 5 (3A AS SYNC. CHAR.) 

002048 




* 




002049 

08 F C 

C 8 71 


T32A 

LDR 

$R4,+$B1 

LOAD ID TYPE INTO $R4 

002050 

0 8 F D 

C900 

1 1 C 3 


CMR 

$R4#<WDBV5B 

CHECK TO SEE IF ALREADY DONE 

002051 

08F F 

09 02 



BE 

>T32 


002052 

0900 

OF F5 



B 

> T3 1 Z 


002053 




* 




002054 

0901 

89 80 

1171 

T 32 

CMZ 

<WDBFG 


002055 

0903 

08 08 



BAL 

> T4 9 


002056 

0904 

8700 

1171 


CL 

< W D B F 6 


002057 

0906 

88 80 

1171 


DEC 

<WDB FG 


002058 

0908 

C8 70 

OF 1 E 


LDR 

$R4,=X 4 F 1 E * 


002059 

090A 

C F 00 

1313 


STR 

$R4,<LCT8FG 


002060 

090C 

OF 80 

08E5 


B 

< T 4 8 


002061 

090E 

8700 

1171 

T49 

CL 

<WDB FG 


002062 

0910 

8700 

1 16A 


CL 

< R U N F G 


002063 

0912 

8700 

1313 


CL 

<LC T8FG 


002064 

091 4 

83 82 



JMP 

$B2 


002065 




* 




002066 




★ 




002067 




* * * 

* ★ * 

★ A * * * * * 

* * * * * * * * ** ** ** * * ** * * 

002068 




* 




002069 




* 

UNDERRUN AND OVERRUN CHECK ROUTINE 

002070 




* 




002071 

0915 

88D3 


RUNCK 

DEC 

= $R 3 


002072 

0916 

E3 80 

0B87 


LNJ 

$86* <8A S E 

LOAD $R5 WITH LCT BASE ADDRESS 

002073 

0918 

5 E 3C 



ADV 

$R5*=X* 3C 4 


002074 

0919 

DF 00 

0940 


STR 

$R5*<RNCK1 


002075 




★ 




002076 

091 B 

89 80 

1 1 71 


CMZ 

<WD 8 FG 


002077 

091 D 

08 OF 



BAL 

>RNCK4 


002078 

091 E 

C 800 

1144 


LDR 

$R4<r<F I S 


002079 

0920 

C 3 80 

0095 


LNJ 

$B4,<CGSCH 

INPUT STATUS TO CHECK DATA 
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002080 

0922 

8055 



10 

=$R5,=$R4 

SERVICE ERROR (8IT2) SET 


0923 

00 54 






002 081 

0924 

0703 



BIOT 

> R N C K4 A 


002082 

0925 

F380 

00 8 A 


LNJ 

$B7,<ERMB 

ERROR: I/O NA K * ED 

002083 

0927 

8205 


RNCK4A 

LB 

= $R 5# = Z'2000 4 



0928 

2000 






002084 

0929 

0503 



BBT 

>RNCK4 


002085 

09 2 A 

F380 

0DC2 


LNJ 

$B7,<£RDB 

ERROR: DATA SERVICE ERROR BIT NOT SET ON 

002086 

09 2 C 

8A03 


RNCK4 

INC 

= $ R 3 

CHECK XMIT DATA SERVICE ERROR 

002087 

0920 

89 80 

1 1 71 


CMZ 

<WDB FG 


002088 

092 F 

0A OF 



BAG 

> RN C K 5 


002089 

0930 

C800 

1144 


LDR 

$R4,<FIS 


002090 

0932 

C 3 80 

0095 


LNJ 

$B4,<CGSCH 


002091 

0934 

8055 



£0 

= $R 5, = $R4 



0935 

00 54 






002092 

0936 

0703 



BIOT 

>RNCK4B 


002093 

002094 

0937 

F380 

OOBA 

* 

LNJ 

$B7/<E RMB 

ERROR: I/O N A K * E D 

002095 

0939 

82 05 


RNCK4B 

LB 

= $R5, = Z* 2000* 



09 3 A 

2000 






002096 

0938 

0503 



BBT 

>RNCK5 


002097 

093C 

F380 

0 DC 2 


LNJ 

$87/<ERDB 

ERROR: DATA SERVICE ERROR BIT NOT SET ON 

002098 

093E 

E380 

0075 

RNCK5 

LNJ 

$86/<R DL C T 

READ LCT 

002099 

0940 

0000 


RNCK1 

DC 

0 


002100 

002101 

0941 

0002 


* 

DC 

2 


002102 

0942 

8980 

1171 


CMZ 

<WDB FG 

CHECK FLAG 

002103 

0944 

08 OA 



BAL 

>RNCK9 


002104 

0945 

8280 

1173 


LB 

<LC T V* S Z *02 00* 



0947 

0200 






002105 

0948 

05 OC 



BBT 

>RNCK6 


002106 

0949 

F380 

0 D C 2 


LNJ 

$B7,<ERD8 

ERROR: OVERRUN FAIL TO SET BIT IN LR5 

002107 

094B 

8980 

1 1 71 


CMZ 

< W D 8 F G 

CHECK FLAG TO TEST UNDERRUN BIT 

002108 

002109 

094 D 

0987 


★ 

BN E 

> RN C K6 


002110 

094E 

8280 

1173 

RNCK9 

LB 

<LCTV,=Z *0100* 



0950 

01 00 






002111 

0951 

0503 



BBT 

>RNCK6 


002112 

0952 

F3 80 

0DC2 


LNJ 

$87 * <E R D B 

ERROR: UNDERRUN FAIL TO SET BIT IN L R 5 

002113 

0954 

OF 80 

OBAO 

RNCK6 

B 

< J P 5 A 


002114 




* 




002115 




★ 




002116 




* _ 




002117 




* 




002118 




★ 


LOOP DSC INTO OSS WITH 

CABLE LOOP 

002119 




★ 




002120 




* 




002121 




★ 


THE SIGNALS ARE TIED 

IN ACCORDING TO THE FOLLOWING CHART: 

002122 


«> 


★ 





C 
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002123 

* 






















002124 

. * 

$ 




$ 




$ 




$ 




$ 




$ 

002125 

★ 

$ 


OSS 


$ASYNCHRONOUS$SYNCHRONOUS 

$ 

BROADBAND 

$ 

BROADBAND 

$ 

002126 

★ 

$ 




$ 




$ 

& MIL 188 

$ 

301/303 

S 


V35 


$ 

002127 

★ 

$_ 












_$_ 




_■$_ 




_$ 

002128 

★ 

$ 




$ 




s 




$ 




$ 




$ 

002129 

* 

$ 

OUT 

CKT 

1 

$ 

IN 

CKT 

1 

$ 

IN 

CKT 

1 

$ 

IN 

CKT 

4 

$ 

IN 

CKT 

1 

$ 

002130 

* 

$ 




$ 




$ 




$ 




$ 

IN 

CKT 

4 

$ 

002131 

* 

$_ 








_$. 




_$_ 








_$ 

002132 

★ 

$ 




S 




$ 




$ 




$ 




$ 

002133 

★ 

$ 

OUT 

CKT 

2 

$ 

IN 

CKT 

2 

$ 

IN 

CKT 

2 

$ 

IN 

CKT 

1 

$ 

IN 

CKT 

2 

$ 

002134 

* 

$ 




s 

IN 

CKT 

3 

$ 

IN 

CKT 

3 

$ 

IN 

CKT 

2 

$ 

IN 

CKT 

3 

$ 

002135 

★ 

$ 




$ 




$ 




$ 

IN 

CKT 

3 

$ 




$ 

002136 

* 

$_ 


_ 


_ $_ 



_ 

_$_ 




_$_ 





_ 

__ 


_$ 

002137 

* 

$ 




$ 




$ 




$ 




$ 




$ 

002138 

* 

$ 

OUT 

CKT 

3 

$ 

IN 

CKT 

4 

s 

- 

-- 


$ 

- 

— 


$ 


— 


$ 

002139 

★ 

$ 




$ 

IN 

CKT 

5 

$ 




$ 




$ 




s 

002140 

* 

$_ 








-S. 


_ 




_ 

_ 



_ 


_s 

002141 

* 

$ 




$ 




s 




$ 




$ 




$ 

002142 

* 

$ 

OUT 

CKT 

4 

$ 


— 


$ 

IN 

CKT 

4 

$ 

- 

— 


$ 


——* 


$ 

002143 

* 

$_ 









_ __ 


« 




. _ _ 





_$ 


002144 * 

002145 * 


002146 

0956 

C870 

4B20 

LPCBLK 

L DR 

$R4,=A'K * 



002147 

0958 

CF 00 

13A9 


STR 

$R4 * <E R M G+ 1 



002148 

095 A 

B3 80 

0BA6 


LNJ 

$83 * <C L F G 

CLEAR ALL TEST FLAGS 

002149 

095C 

8700 

1160 


CL 

< M A S K 



002150 

095E 

9B 80 

127A 


LAB 

$81 ,<TLTBLA 

PUT 

ADDRESS OF SHOULD BE TABLE IN ZV$C 

002151 

0960 

9 F 80 

OA 05 


STB 

$B1 / <L OP D7+ 4+ $ A F 



002152 

0962 

9680 

1 2 A 3 


LAB 

$61 * <C 4 

PUT 

ADDRESS OF RANGE IN ZV$C 

002153 

0964 

9F80 

OA 08 


STB 

$B1✓ <L OPD7 + 4+4*$AF 



002154 

0966 

C870 

FC 1 D 


L DR 

$R4^ = Z'F C1D ' 



002155 

0968 

C F 00 

1306 


STR 

$R4r<LC7SM 

SET 

MASK FO ASYC. LINE 

002156 

096A 

4C08 



LDV 

$R4,=8 

SET 

RANGE FOR CHECK ROUTINE 

002157 

002158 

0968 

C F 00 

1 1 6 D 

*## 

STR 

$R4,<TP2 



002159 

002160 

096D 

F8 70 

OOFA 


L DR 

$R7,=250 

LOAD 

$R7 WITH NUMBER OF 30MS DELAY 

002161 









002162 




*## 





002163 

002164 

096 F 

9B80 

1 1 BA 

* 

LAB 

$B1* < A S Y N 

LOAD 

$B1 WITH ADDRESS OF LINE TYPE 

002165 

09 71 

83 80 

09 C 3 


LNJ 

$B3,<L0PDS 

BRANCH TO LOOP DSS INTO DSC AND CHECK 

002166 

002167 

0973 

9B80 

1 1 BB 

* 

LAB 

$B1 ✓ <AS YN1 

LOAD 

ADDRESS OF LINE TYPE 

002168 

002169 

0975 

8380 

09 C 3 

★ 

LNJ 

$B3 / <L OP DS 



002170 

0977 

9B80 

127E 


LAB 

$B1 * <TL T8L C 

STORE SHOULD BE ADDRESS FOR 2V$C 

002171 

0979 

9F80 

OA 05 


STB 

$B1,<L0PD7+4+$AF 
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002172 

097 B 

9B80 

1 1 BC 


LAB 

SB1 ,<ASYNC 

LOAD ADDRESS OF LINE TYPE 

002173 

0 9 7 D 

8380 

09 C 3 


LNJ 

$B3,<LOPDS 


002174 




★ 




002175 

09 7 F 

9B80 

1282 


LAB 

$B1,<TLTBLS 


002176 




*## 




002177 




*n 




002178 

0981 

C800 

1 1 49 


LOR 

$R4,<TEST 

DON'T CHECK RING INDICATOR IF 

002179 

0983 

4044 



C MV 

$ R 4 * X* 44 • 


002180 

0984 

0905 



BE 

>LPCB1 


002181 

0985 

4 0 40 



CM V 

$R4,X* 40' 


002182 

0986 

0987 



BNE 

>LPCB2 


002183 

0987 

9B80 

1286 


LAB 

$B1,<TLTBLM 


002184 

0989 

C870 

EOEO 

LPCB1 

LOR 

$R4,*Z 1 EOEO* 


002185 

098B 

C F 00 

1160 


STR 

$R4/<M ASK 


002186 




*u 




002187 








002188 

0980 

9 F 80 

0A05 

LPCB2 

STB 

SB1,<LOP D7 + 4+SAF 


002189 

098 F 

C870 

F81 0 


LOR 

$R4,=Z* F 810 ' 

CHANGE MASK FOR SYNC. LINES 

002190 

0991 

C F 00 

1306 


STR 

$R4,<LC7SM 


002191 

0993 

9B80 

1 1 BE 


LAB 

$B1/<BI SYNC 


002192 

0995 

B380 

09 C 3 


LNJ 

$B3/<L0PDS 


002193 




★ 




002194 

0997 

9880 

1 1 80 


LAB 

$Bl* <S Y N C 


002195 

0999 

83 80 

09C 3 


LNJ 

$B3 / <L 0 P 0 S 


002196 




* 




002197 

0998 

9B 80 

1 1 8 F 


LAB 

$B1# < S Y N188 


002198 

0990 

B380 

09 C 3 


LNJ 

$B3,CLOPDS 


002199 




* 




002200 




* 


T E|S T WIDEBAND 301 /303 


002201 




* 




002202 

099 F 

C870 

FO 1 0 


LOR 

$R4,=Z * F 01 D ' 

SET CCP MASK FOR BROADBAND LINES 

002203 

09A1 

C F 00 

1306 


STR 

$R4,<LC7SM 


002204 

09 A 3 

4C04 



LDV 

$R4,=4 

SET RANGE FOR CHECK ROUTINE 

002205 

09A4 

C F 00 

1160 


STR 

$R4 * <TP2 


002206 

09A6 

9B80 

12A2 


LAB 

$B1, <C2 

CHANGE RANGE IN ZV$C 

002207 

09A8 

9F80 

OA 08 


STB 

$B1 ,<L0PD7+4+4*$AF 


002208 

09AA 

98 80 

128A 


LAB 

$B1*<TL UWB3 

SET ADDRESS OF SHOULD BE FOR ZV$C 

002209 

09 AC 

9 F 80 

0A05 


STB 

$81, <LOP 07+ 4+ $AF 


002210 

09 AE 

9B80 

11 CO 


LAB 

$B1 * <W 0 B 3 


002211 

09B0 

B380 

09 C 3 


LNJ 

$B3,<L0PDS 


002212 




* 




002213 




* 


TES BI-SYNC. WIDEBAND 

31/303 

002214 




* 




002215 

0982 

9B80 

11 Cl 


LAB 

$B1 / <W0 B 3B 


002216 

09B4 

B380 

09 C 3 


LNJ 

$B3# <LOPDS 


002217 




* 




002218 




★ 


TEST WIDEBAND V35 


002219 




* 




002220 

0986 

9880 

128C 


LAB 

$ B1* <T LUV 3 5 

PUT ADDRESS IN FOR ZV$C 


OR *M* 
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002221 

0988 

9F80 

OA05 



STB 

$B1*<L0PD7+4+$AF 

002222 

09BA 

9B80 

11 C 2 



LAB 

$B1,<WD6V35 

002223 

09 BC 

B380 

09C 3 



LMJ 

$B3s<LOPOS 

002224 





★ 



002225 





* 


TEST 81-SYNC. WIDEBAND V35 

002226 





★ 



002227 

098E 

9880 

11 C 3 



LAB 

$B1#<W0BV5B 

002228 

0 9C0 

8380 

09C3 



LNJ 

$B3,<L0PDS 

002229 

09C2 

8382 




JMP 

$B2 

002230 





* 



002231 





* * * 

* * * 

* * * ************ ** **** ********* 

002232 





* 



002233 





★ 


LOOP AND TEST DSC INTO DSS LOOP 

002234 





* 



002235 





■ * 



002236 

09C3 

9 F 80 

09 C 8 


LOPOS 

STB 

$81#<LOPD1 STORE ADDRESS OF LINE TYPE 

002237 

09C 5 

8753 




CL 

=$R 3 

002238 

09 C 6 

0380 

00 4 F 


LOPO 

LNJ 

$ B 5 # < F L N FIND LINE ON 

002239 

09C8 

0000 



L OP 01 

RE S V 

$ A F * 0 LINE TYPE ADDRESS 

002240 

09C9 

8383 




JMP 

$B3 

002241 

09 C A 

C 3 80 

ODOA 



LNJ 

$B4/<G ENITZ GENERAL INITIALIZE 

002242 





★ 



002243 





* 

WRITE 

CHANNEL PROGRAM AND TLU TABLE INTO RAM 

002244 





* 



002245 

09CC 

C 5 70 

F F 80 



AND 

$R4,=Z*FF80 # 

002246 

09 CE 

C 4 70 

0040 



OR 

$R4 * “X * 4 0 * 

002247 

0900 

C F 00 

1 1 51 



STR 

$R4 * <C HN Z 

002248 






CALL 

ZV$MLW#CHLP5#WCP5#HX200*CHN2 


0902 

F8C0 

0003 






09D4 

0380 

0000 

X 





0906 

OF 80 







0 9 D7 

0F6A 







0908 

1331 







0909 

12A6 







09 DA 

1 1 51 






002249 






CALL 

ZV$MLW> TLUTB2,WCP5B#HX400,CHNZ 


09D8 

FBCO 

0003 






0900 

0380 

0000 

X 





09DF 

OF 80 







09E0 

128F 







09E1 

1332 







09E2 

12A7 







09E3 

11 51 






002250 





* 



002251 

0 9E4 

03 80 

0D3B 



LNJ 

$B5^<SETLCT SEND OUT LCT LOCATIONS 

002252 

09E6 

1302 




DC 

<LC T 7 

002253 





* 



002254 

09 E 7 

C800 

1 1 60 



LOR 

$R4^<TP2 LOAD $R4 WITH RANGE 

002255 

09E9 

03 80 

0099 



LNJ 

$B5 # <M C C B FORM CCB TO TRANSFER DSS INTO MEMORY 



TITLE DCMVA 


07/28/78 

1 733.9 

e d t F r i 

HRS ASSEMBLER 5.05 PAGE 0051 


002256 

09 E 8 

1C00 




OC 

< 0 I N 



002257 

09EC 

0060 




DC 

X’60* 



002258 





★ 





002259 

09ED 

C800 

11 3F 



LOR 

$R4/<F0C C 

FORM I/O CONTROL WORD 


002260 

09EF 

C 3 80 

0095 



LNJ 

$64/<CGSCH 

FOR S TART I/O 


002261 

09 F 1 

8000 

11 C 5 



10 

<BIT1,«$R4 




09 F 3 

0054 








002262 

09 F 4 

07 03 




BIOT 

>L 0 P 02 



002263 

09 F 5 

F380 

0 D BA 



LNJ 

$87/<ERMB 

ERROR: I/O WAS NAK * E 0 


002264 

09F7 

D380 

0063 


LOP 02 

LNJ 

$B5/<TDLAY 

TIME DELAY 


002265 





* 





002266 

09 F 9 

C 3 80 

OD 25 



LNJ 

$B4/<INXT 

INPUT NEXT STATUS 


002267 

09 F3 

82D5 




LB 

= $R5/=Z 1 1000* 

CHECK STATUS COMPLETE 



09 FC 

1000 








002268 

09 F 0 

0503 




BBT 

>L0 P 07 



002269 

09 FE 

F 3 80 

00 BA 



LNJ 

$B7/<ERMB 

ERROR: STATUS NOT COMPLETE AFTER 

GNB 

002270 





LOP 07 

CALL 

ZV$C/$/DIN* MASK/ 

$ / E R A R 



0 A00 

FBCO 

0003 








0A02 

0380 

0000 

X 







0 A 04 

OF 80 









0 A05 

OA 00 









0A06 

1C 00 









0A07 

11 60 









0A08 

OA 00 









0A09 

11 76 








002271 

OAOA 

8980 

1 1 76 



CMZ 

<ER A R 

CHECK FOR ERROR 


002272 

0 A OC 

09 00 




BE 

>LOP 03 



002273 

0 A 0 0 

0800 

1178 



LDR 

$R5/<ERAR+2 

PUT *is * INTO $R 5 


002274 

0 A 0 F 

E800 

1177 



LOR 

$R6/<ERAR+1 

PUT ’SHOULD BE* INTO $R6 


002275 

0 A 1 1 

F800 

11 76 



LOR 

$R7#<ERAR 

PUT WORD COUNT INTO $R7 


002276 

0 A 1 3 

F380 

0DC2 



LNJ 

$B7/<ERDB 

ERROR: DSC DID NOT LOOP INTO OSS 

C OR 1 

002277 






CALL 

ZV$CO 

CONTINUE CHECKING FOR ERROR 



0 A 1 5 

FB FO 

0001 








0 A 1 7 

0380 

0000 

X 






002278 

0 A1 9 

3E02 



LOP 03 

AD V 

$R3/=2 

CHANGE TO NEXT LINE 


002279 

0 A 1 A 

OF 80 

09 C 6 



B 

<L0 P 0 



002280 





★ 





002281 





★ 





002282 





★ _ 





002283 





★ 





002284 





★ 

TRANSMIT MARK AND 

SPACE TEST 


002285 





* 





002286 

0 A1 C 

C870 

4C20 


XMMSL 

LOR 

$R4/=A*L ' 



002287 

0 A 1 E 

C F 00 

13A9 



STR 

$R4/<ERMG+1 



002288 

0 A 20 

B380 

0BA6 



LNJ 

$83/<CL FG 



002289 

0A22 

C870 

F F 07 



LOR 

$R4/=Z * FF07' 

ALTER DATA 


002290 

0 A 24 

epoo 

1 1 E6 



STR 

$R4/<D0UT+3 



002291 

0 A26 

8700 

1160 



CL 

<M A S K 



002292 

OA 28 

C 8 70 

08 1 A 



LOR 

$ R4 / =X * 81 A* 

LOAD LCT WITH MARK BIT 
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I NC <PAR fG 

U2 LAB $B6# <ASYNC LOAD $B6 WITH ADDRESS OF TABLE END 

STR $R4,<LCT9MS 

LDV $R7,=6 NUMBER OF 60 MS DELAY 

* 

★ TEST ALL ASYNCHRONOUS LINES 

4r 

LDV $R2,=1 LOAD INDEX 

LAB $B1/<AS YN 

U3 LNJ $B3 * <D T A LOP LOOP SUB-ROUTINE 

B >U1 

DC <WC P 9 

DC <LC T 9 

DC 5 

DC < D 0 U T 

* 

U1 EQU $ 

CMB $B1,=$B6 SEE IF ALL ASYNCHRONOUS LINES TESTED 



BE 

>U5 



LAB 

$B1 , $B1 . $R2 



8 

>U3 


U5 

LDR 

$R4✓=X * 1 01 A * 

LOAD LCT FOR SPACE CONDITION 


CMR 

$R4#<LCT9MS 

CHECK IF ALREADY DONE 


BN E 

>U2 



CL 

<PA R F G 



LDR 

$R4,=X*607* 

PUT DATA BACK TO NORMAL 


STR 

$R4/<D0UT+3 



JMP 

$82 


******* 

********** 


* 


DATA CHECK FOR XMIT 

MARK AND SPACE 

XMSCK 

EQU 

$ 



SAVE 

<SAV2/ = Z *0002* 

SAVE $86 


LAB 

$ B 5 * < X M S B 

LOAD ADDRESS FOR ZV$C 


LDR 

$R4,<LC T9MS 

CHECK LCT TO SEE IF MARK 


CMR 

$ R4 * =X * 81 A* 

B IF MARK TEST 


BE 

>XMS CK1 



LAB 

$B5<*<XSSB 

LOAD ADDRESS OF SPACE SHOULD BE 

XMSCK1 

STB 

$B5,<XMSCK2+4+$AF 

STORE SHOULD BE ADDRESS FOR ZV$C 

XMSCK2 

CALL 

IMS C,S, D IN*MASK#C4 

, ERAR 
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0 A60 1160 

0A61 1 2 A3 

0A62 1176 


002336 

0 A 63 

89 80 

1 1 76 


CMZ 

< E R A R 

CHECK FOR ERROR 

002337 

0A65 

0900 



BE 

>X M S C K 3 


002338 

0 A66 

08 00 

1 1 78 


LOR 

$R5/<ERAR+2 

PUT 'is* INTO $R5 

002339 

0 A68 

E800 

1 1 77 


LOR 

$R6,<ERAR+1 

PUT 'SHOULD BE* INTO $R6 

002340 

0 A6 A 

F800 

11 76 


LOR 

$R7,<ERAR 

PUT WORD COUNT INTO $R7 

002341 

0 A6C 

F380 

00 C 2 


LNJ 

$B7,<ERDB 

ERROR: TRANSMIT MARK OR SPACE 

002342 

0 A 6 E 

FB FO 

0001 


CALL 

2 V$ C 0 

CONTINUE CHECKING FOR ERROR 


0 A 70 

0380 

0000 

X 




002343 

0A72 

C870 

101 A 


XMSCK3 LOR 

$ R 4/= X 1 101 A 4 


002344 

0 A 74 

C900 

1319 


CMR 

$R4,<LCT9MS 


002345 

0 A76 

0991 



BN E 

>XM S CK 5 


002346 

0A 77 

E380 

0B87 


LNJ 

$B6,<BASE 

LOAD $R 5 WITH LCT BASE 

002347 

0 A 79 

5E3C 



AO V 

$R5,=60 


002348 

0A7A 

OF 00 

0 A 7£ 


STR 

$R5✓<XMS CK4 

STORE ADDRESS TO READ LCT 

002349 





★ 



002350 

0 A 7 C 

E3 80 

0075 


LNJ 

$B6,<RDLCT 


002351 

0A7E 

0000 



XMSCK4' DC 

0 

ADDRESS 

002352 

0 A 7 F 

00C2 



DC 

2 


002353 





* 



002354 

0 A80 

08 70 

FEEE 


LOR 

$R5,=Z* FEEE * 

LOAD $R 5 WITH SHOULD BE 

002355 

0A82 

0900 

1 1 73 


CMR 

$R5/<LCTV 


002356 

0 A84 

0903 



BE 

>XM S CK 5 


002357 

0A85 

F 3 80 

0 D C 2 


LNJ 

$B7,<ERDB 

ERROR: FRAMING ERROR FAILURE 

002358 

0 A 8 7 

8F80 

1 1 8A 


XMSCK5 R ST R 

< SAV2* = Z* 0002 ' 

RESTORE $86 


0A89 

0002 






002359 

0 A8A 

OF 80 

OBAO 


B 

< J P 5 A 


002360 





★ 



002361 





★ 



002362 





★ = = = = === = 3 s = = 

===================== 

SSSSS3SSSSS3SSSSSSSSSSSSSSS8SSS 

002363 

0A8C 

8F00 

1 1 9A 


OTALOP SAVE 

<SAV 3# = Z * 0112 * 

SAVE $83,$86 


0 A 8 E 

01 12 






002364 

0 A 8 F 

9F80 

OA 94 


STB 

e> 

i— 

V 

> 

m 

</» 

FOR FIND LINE ON 

002365 

0A91 

8753 



CL 

= $R3 

CLEAR $R 3 

002366 

0 A 92 

0380 

0D4F 


NXLT LNJ 

$B5 * <F LN 

FIND LINE ON 

002367 

0A94 

0000 



TGI RESV 

$ A F * 0 


002368 

0 A 9 5 

83 83 



JMP 

$83 

NO LINE ON RETURN 

002369 





* 



002370 

0 A 96 

FB CO 

0003 


CALL 

ZV$F/DIN*DFLT*HX200 

FILL INPUT BUFFER 


0 A98 

03 80 

0000 

X 





0A9A 

OF 80 







0A93 

1C00 







0A9C 

12 22 







0A9D 

12A6 






002371 

0A9E 

C808 

0A94 


LOR 

$R4**<TG1 




C 
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002372 

002373 

002374 

002375 

002376 

002377 

002378 

002379 

002380 

002381 

002382 

002383 

002384 

002385 

002386 

002387 

002388 

002389 

002390 

002391 

002392 

002393 

002394 

002395 

002396 


002397 


002398 

002399 

002400 

002401 

002402 

002403 

002404 

002405 


0A AO 

C900 

11 BC 

0AA2 

0983 


0 A A3 

C 3 80 

0C18 

0 A A 5 

BBC3 

0001 

0AA7 

C380 

OOOA 

0 A A9 

DC F3 


OA A A 

89 80 

1152 

0 A A C 

09 86 


0 A A D 

82 D4 


0 A AE 

00 80 


0 A A F 

05 83 


OABO 

C 3 80 

OC 11 

0 AB2 

C 5 70 

F F 80 

0 A B 4 

C470 

0040 

0AB6 

C F 00 

1151 

0 A 88 

CC F5 


0AB9 

C F 80 

0 A C D 

0 ABB 

CCF5 


0 A B C 

CF 80 

0A D6 

OABE 

D F 80 

0 A CE 

OACO 

DBC5 

0001 

0 AC 2 

DF 80 

0AD7 

0 A C 4 

DBC5 

0001 

0 A C 6 

D F 80 

0A D8 


0 AC8 

FB CO 

0003 

0 A C A 

D380 

0000 

0 AC C 

OF 80 


0 A C D 

OA C8 


0 ACE 

0AC8 


0 A C F 

12A6 


0 A DO 

11 51 


0 A D1 

FB CO 

0003 

0 A D 3 

0380 

0000 

0 A D 5 

OF 80 


0 A D6 

OA D1 


0 A D7 

OA D1 


0AD8 

OA D1 


0AD9 

1 1 51 


0 ADA 

DC F3 


0 A DB 

D F 80 

OA D F 

0 A D D 

D380 

OD 38 

0 A D F 

0000 


0 AE 0 

C8 00 

113F 


DTAL 


DTI 


CMR 

$R4,<ASYNC 


BNE 

> DT A L 

8 IF NOT CURRENT LOOP ADAPTER 

LNJ 

$B4#<SCLS 

SET CURRENT LOOP AOAPTER SPEED 

LAB 

$83 ✓$83.1 

DUMMY INCREMENT OF $B3 

LNJ 

$B4,<GENITZ 

GENERAL INITIALIZE 

LDB 

$B5#+$B3 

GET ADDRESS TO STORE FOR ZVSMLW CHANNEL 

CMZ 

< C 0 U N T 

IF CABLE LOOP DON’T STMD 

BNE 

>DT 1 


LB 

= $ R 4 , = X * 80* 

SEE IF SECOND LINE OF CLA PAIR 

8BF 

> D T 1 


LNJ 

$B4,<STMD 

SET TEST MODE ON FIRST LINE OF CLA PAIR 

AND 

$R4# =Z * F F 80 1 

SET CHANNEL FOR ZVSMLW 

OR 

$ R 4 , = X *4 0* 

OR IN DIRECTION BIT 

STR 

$R4 , <C HNZ 

STORE CHANNEL FOR ZVSLIB CALL 

LDB 

$84,+$85 

LOAD AND STORE ADDRESS FOR 

STB 

$B4,<LPWRT + 4 + $ A F 

Z V $LI8 CALL 

LDB 

$B4,+$85 


STB 

$B4,<LPWRT1+4 +$AF 


STB 

$B5^<LPWRT+4+2*$AF 


LAB 

$B5/$95.1 

INCREMENT $85 

STB 

$B5 / <LP W RT1 +4 ♦ 2* $A F 


lab 

$B5 * $85.1 


STB 

$B5 ^ <LP W RT1+4 + 3* $A F 


CALL 

ZV$MLW/$^$^HX200^CHNZ 


X 


LPWRT1 CALL ZVSMLW,CHNZ 


C"' N < 



LD3 

STB 

$B5*+$B3 

$B5/<TG2 

STORE ADDRESS 

FOR LCT TABLE 

T 62 

LNJ 

RESV 

$B5,<SETLCT 

SAF/O 

SEND OUT LCT 



L DR 

$R4,<F0CC 

CCB RESET FOR 

REC 


c 
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002406 

0 AE 2 

C 3 80 

OD 95 


LNJ 

$64,<CGSCH 


002407 

0 A£ 4 

8000 

1 1 C 9 


10 

<BIT 7/ = $R4 



0 A E 6 

0054 






002408 

0 A E 7 

0703 



BIOT 

>DT 2 


002409 




* 




002410 

0 AE 8 

F 3 80 

OD BA 


LNJ 

$B7,<ERM3 

ERROR: I/O WAS NAK'ED 

002411 




* 




002412 

0 A E A 

8A03 


DT2 

INC 

= $ R 3 


002413 

0 A E Q 

C 8 00 

1 1 3 F 


LDR 

$R4 # <F 0 C C 

CCS RESET FOR TRANSMIT 

002414 

0 A E 0 

C 3 80 

OD 95 


LNJ 

$B4,<CGSCH 


002415 

0 A E F 

8000 

1 1 C 9 


10 

<BIT7,=$R4 



0 A F 1 

0054 






002416 

0 A F 2 

0703 



BIOT 

>DT 3 


002417 




* 




002418 

0 A F 3 

F380 

0 D BA 


LNJ 

$87,<ERMB 

ERROR : I/O WAS NAK* ED 

002419 




* 




002420 

0 A F 5 

C 8 03 


DT3 

L DR 

$R4,$83 

LOAD RANGE 

002421 

0A F6 

C F 00 

1 1 66 


STR 

$R4*<RANGE 

STORE RANGE FOR ZVSC 

002422 

0 A F 8 

4001 



SOL 

$R4,1 

CONVERT TO BYTES FOR CCB RANGE 

002423 




* 




002424 

0 A F9 

8B C 3 

0001 


LAB 

$B3,$B3.1 


002425 

0 A F B 

DC F3 



LDB 

$B5/+$B 3 

STORE ADDRESS FOR TRANSMIT BUFFER 

002426 

0 A F C 

DF 80 

0B02 


STB 

$B5,<TG3 

FOR CCB FORMATION 

002427 

OAFE 

D F 80 

OB 58 


STB 

$B5 V <JP4+4+SAF 

FOR DATA CHECK CALL(ZVSC) 

002428 




* 




002429 

OBOO 

D3 80 

0 D 99 


LNJ 

$B5,<MCCB 

FORM CCB FOR TRANSMIT 

002430 

OBO 2 

0000 


T 63 

RESV 

$ A F / 0 


002431 

0803 

0060 



DC 

X *60 # 


002432 




★ 




002433 

0B04 

88 D3 



DEC 

= $R 3 

GET RECV. CHANNEL 

002434 

0 BO 5 

D3 80 

0 D99 


LNJ 

$B5/<MCC8 

FORM CCB FOR RECIEVE SIDE 

002435 

0 BO 7 

1C 00 



DC 

<DI N 


002436 

0808 

00 60 



DC 

X * 60 * 


002437 




* 




002438 

0809 

5C01 



LDV 

$R5,=1 

START I/O ON XMIT SIDE TO SET 

002439 

OBOA 

8AD3 



INC 

= $ R 3 

CONFIG. AND XMIT FILL CHAR. (SYNC. ONLY) 

002440 

0 BOB 

F£ 55 



SWR 

SR 7/=$R5 


002441 

OBOC 

C800 

1 1 3 F 


LDR 

$R4,<F0CC 


002442 

OBOE 

C 3 80 

0 D 95 


LNJ 

$B4/<CGSCH 


002443 

OBI 0 

8000 

1 1 C 5 


10 

<BIT1/=$R4 



0 B1 2 

00 54 






002444 

OBI 3 

0703 



BIOT 

> M E L C 0 


002445 

OBI 4 

F 3 80 

0 D BA 


LNJ 

$B7,<ERMB 


002446 

0 B1 6 

D380 

0 D 63 

MELCO 

LNJ 

$B5 / <TD L A Y 


002447 

OBI 8 

F£ 55 



SWR 

$R7,=$R5 


002448 

OBI 9 

88D3 



DEC 

= $R 3 


002449 




* 




002450 

OBI A 

C 8 00 

1 1 3F 


LDR 

$R4,<FOCC 


002451 

OBI C 

C 3 80 

0 D 95 


LNJ 

$B4 * <C GS C H 

FORM I/O FOR START I/O 
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002 A 52 

OBI E 

8000 

11 C 5 


10 

<BIT1,*$RA 



0820 

00 5A 






002 A 5 3 

0821 

0703 



8 I 0 T 

>JP2 


002 A 5A 

0822 

F3 80 

0D8A 


LNJ 

$B7,<ERM8 


002 A 55 

082A 

0380 

OD 63 

JP2 

LNJ 

$B5*<TDLAY 

TIME DELAY 

002 A 56 

0826 

89 80 

1 1 70 


CMZ 

< S T P F G 

CHECK STOP I/O TEST FLAG 

002 A 57 

0828 

09 03 



BE 

> JP2 A 


002 A 58 

0829 

OF 80 

0800 


B 

<ST I Q 

BRANCH TO STOP I/O AND CHANNEL RESET TEST 

002 A 59 

0828 

8980 

1163 

J P 2 A 

CMZ 

< P A R F G 


002A60 

0820 

0908 



BE 

> J P 2 8 


002 A 61 

0 82 E 

8980 

11 52 


CMZ 

<COUNT 


002A62 

0830 

0900 

077B 


BE 

<PA R 1 

BRANCH TO CHECK THAT PARITY ERROR SET 

002 A 63 

0832 

8A03 



INC 

= $R 3 


002A6A 

0B33 

OF 80 

OAAB 


B 

< X M S C K 

B TO MARK AND SPACE CHECK ROUTINE 

002A65 

0B35 

C 3 80 

0 D 25 

JP2B 

LNJ 

$BA,<INXT 

INPUT NEXT STATUS ON REC. SIDE 

002 A 66 

0B37 

E870 

1000 


LOR 

$R6*-Z * 1 000* 


002 A 67 

0B39 

8205 



LB 

= $R 5 / = Z * 1 000* 

SEE IF STATUS COMPLETE 


083 A 

1000 






002 A 68 

0B3B 

0503 



BBT 

> J P 3 


002 A 69 

0B3C 

F380 

00C2 


LNJ 

$B7,<EROB 

STATUS NOT COMPLETE ON REC. 

002 A 70 




★ 




002 A 71 

0B3E 

8A 03 


JP3 

INC 

= $R 3 


002 A 72 

0B3F 

C 3 80 

0025 


LNJ 

$BA ^ <IN X T 

INPUT NEXT STATUS ON XMIT SIDE 

002 A 73 

0 BA 1 

82D5 



LB 

=$R5 , = Z'1000* 

SEE IF STATUS COMPLETE 


OBA 2 

1000 






002 A 7 A 

OB A 3 

0503 



8BT 

> J P A A 


002 A 7 5 

0 BA A 

F 3 80 

00C2 


LNJ 

$B7*<ERDB 

STATUS* INCOMPLETE ON XMIT SIDE 

002 A 76 

0BA6 

8980 

1 1 6A 

J PA A 

CMZ 

<RUN FG 


002 A 7 7 

0BA8 

0980 

0915 


9NE 

<RUN CK 

BRANCH TO OVERRUN AND UNDERRUN TEST 

002 A 78 




★ 




002 A 7 9 

OBAA 

89 80 

1 1 56 


CMZ 

<CRC FG 

TEST CRC AND PARITY FLAG 

002 A 80 

OBAC 

09 03 



BE 

> J P A C 

FLAG NOT SET JUST CHECK DATA 

002 A 81 

OBAD 

03 80 

0570 


LNJ 

$B 5 # <C R P R T 

GO CHECK CRC RESIDUE AND PARITY 

002 A 82 




* 




002 A 83 

08 A F 

89 80 

1 1 AO 

J PA C 

CMZ 

<AR FG 

CHECK ADAPTER READY FLAG 

002A8A 

OB 5 1 

0980 

0 A C F 


8NE 

<ARC K 

GO TO ADAPTER READY CHECK ROUTINE 

002A85 




* 




002 A 86 




* 


CHECK IF DATA 

LOOP CORRECTLY 

002 A 87 




* 




002A88 




J PA 

CALL 

Z W $C D IN,MASK 

,RANGE,ERAR 


0853 

FBCO 

0003 

0B55 

D380 

0000 

0B57 

OF 80 


OB 58 

OB 53 


0B59 

1C 00 


085 A 

1160 


0 85 3 

1166 
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002490 





*# 




002491 

0 B 5 0 

8 A 80 

1 1 4 A 



INC 

<ML X C T 

INC MODEM LOOPBACK XMIT CTR 

002492 





*# 




002493 









002494 

OB 5 f 

8980 

1176 



CMZ 

<E R A R 

CHECK FOR ERROR 

002495 

0B61 

0913 




BE 

>J P 5 


002496 





*## 




002497 





*n 




002493 

0B62 

8 A 80 

1 1 4B 



INC 

<ML E C T 

INC MODEM L00P8ACK ERROR CTR 

002499 

0 B64 

0800 

1149 



LOR 

$R5/<TEST 


002500 

0B66 

5D4D 




C MV 

$R5/X*4D* 


002501 

0867 

09 OD 




BE 

>JP5 

SUPRESS ERROR MSG IF MODEM LOOPBACK 

002502 









002503 





+ UH 




002504 

0B68 

08 00 

1 1 78 



LOR 

$R5,<ERAR+2 

PUT IS IN $R 5 

002505 

0B6A 

E800 

1177 



LOR 

$R6 * <E R A R + 1 

PUT SHOULD BE INTO $R6 

002506 

0B6C 

F800 

1 1 76 



LOR 

$R7,<ERAR 

PUT WORD COUNT INTO $R7 

002507 

0 86 E 

F380 

0DC2 



LNJ 

$87/<ERDB 


002508 






CALL 

ZVSCO 

CONTINUE LOOKING FOR ERRORS 


0870 

FBfO 

0001 







0B72 

0380 

0000 

X 





002509 

0874 

8980 

1150 


J P 5 

CMZ 

< C H S Z F G 

CHECK CHARACTER SIZE TEST FLAG 

002510 

0876 

092A 




BE 

> J P 5 A 

IF SET CHECK HIGH ORDER DIGITS FOR ZEROES 

002511 

0B77 

5C08 




LDV 

$ R 5 / = 8 


002512 

0B78 

D900 

1153 



CMR 

$ R 5 # < C S 


002513 

0 B7 A 

09 26 




BE 

> J P 5 A 


002514 

0B73 

86 CO 

1160 



C PL 

<M A S K 

COMPLEMENT MASK TO CHECK OTHER BITS 

002515 






CALL 

ZVSF^DINl/CPFLG+3/ 

RANGE CLEAR SHOULD BE TO ZERO'S 


0 8 7 D 

FB CO 

0003 







0B7F 

0380 

0000 

X 






0881 

0 F 80 








0B82 

10 00 








0B83 

1 1 OF 








0B84 

11 66 







002516 






CALL 

ZVSC^DINl,DIN,MASK 

,RANGE^ERAR 


0B85 

F8C0 

0003 







088 7 

0380 

0000 

X 






0B89 

0F 80 








0B8A 

1 DOO 








0B8B 

1C 00 








0B8C 

11 60 








0B8D 

11 66 








0B8E 

11 76 







002517 

0B8F 

89 80 

1176 



CMZ 

<E R A R 

CHECK FOR ERRORS 

00251 8 

0B91 

0900 




BE 

> J P 5 B 


002519 

0B92 

08 00 

1 1 78 



LOR 

$R5,<ERAR+2 

PUT IS INTO $R 5 

002520 

0B94 

E800 

1 1 77 



LOR 

$R6,<ERAR+1 

PUT SHOULD BE INTO $R6 

002521 

0B96 

F800 

1176 



LOR 

SR7,<E R A R 

PUT WORD COUNT INTO SR 7 

002522 

0898 

F380 

0 0 C 2 



LNJ 

SB7* <EROB 

ERRORS SOME HIGH ORDER BITS SET IN CHARACTER 






TITLE DCMVA 


07/28/78 1733.9 edt Fri 


HRS AS SEM8LE R 5.05 


PA6E 0058 


002523 

089 A 

FBFO 

0001 



CALL 

ZVSCO CONTINUE LOOKING FOR ERRORS 


0B9C 

0380 

0000 

X 




002524 

089E 

8600 

1160 


JP58 

C PL 

< M A S K RESET MASK 

002525 





* 



002 526 

0BA0 

8A 03 



J P 5 A 

INC 

=$R3 FINO NEXT LINE ON OF THIS TYPE 

002527 

08 A1 

8F80 

119A 



RSTR 

<SAV3/=Z* 0112* RESTORE $B3/$86 


0 BA 3 

01 12 






002528 

002529 

08 A 4 

OF 80 

OA 92 


* 

8 

< N X L T 

002530 





* 



002531 





* 

ii 

ii 

ii 

ii 

ii 


S5S.SSSSSSSSS3SS3SS3SS3SS5SSSSMSSS3SSS5SSSSS33Xa83SSS«'3«eSSSM3 

002532 





* 



002533 





★ 


CLEAR TEST FLAGS 

002534 





* 



002535 

0BA6 

8700 

1156 


CL F 6 

CL 

<CR C FG 

002536 

08 A 8 

8700 

1163 



CL 

<PA R FG 

002537 

OBAA 

8700 

11 6E 



CL 

CSBTFG 

002538 

OBAC 

87 00 

1 1 70 



CL 

<ST P FG 

002539 

OBAE 

8700 

11 71 



CL 

<WD B FG 

002540 

OBBO 

8700 

1 1 4D 



CL 

< AR F G 

002541 

0B82 

8700 

1150 



CL 

<CHSZFG 

002542 

0884 

8700 

1 1 6 A 



CL 

< R U N F G 

002543 

002544 

0886 

83 83 



* 

JMP 

$B3 

002545 





* 2SSSS 

ii 

ii 

ii 

n 

ii 

3333S3S33S8333S3 333333 333333 3 3 333 3 3333 333333333333 33*3333 S3 3: SC S3 S * S3 S3 33 

002546 





* 



002547 





* 


LOAD $R5 WITH LCT BASE ADDRESS 

002548 





* 



002549 

0 B 87 

0853 



BASE 

LOR 

$R5/=$R3 

002550 

0BB8 

5041 




SOR 

$R 5 / 1 

002551 

0BS9 

5 F 40 




ML V 

$R5/=X'40* 

002552 

002553 

OBBA 

83 86 



* 

JMP 

$B6 

002554 





Asssss 

•i 

u 

ii 

it 

li 

3 3 3333 3333 3 333 S3333333S333333 33 333 33333333333338338:83333338833 

002555 





* 



002556 





* 


CRC GENERATOR 

002557 





* 



002558 





* 


OUTPUT - TAKES TABLE OF DATA ANO FORMS ACCUMULATED CRC. 

002559 





* 


ONLY FOR CRC16 ANO CCITT. 

002560 





* 



002561 





★ 

TO USE/ MUST SET: 

002562 





★ 


R6 - NUMBER OF BITS IN CHAR. 

002563 





* 


R7 - RANGE IN BYTES 

002564 





* 


B3 - TABLE ADDRESS 

002565 





★ 


B6 - ADDRESS OF CRC TYPE. 

002566 





* 



002567 





* 



002568 





★ 


LN J $84 / <C RC 



'V/ ; 
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c 


002569 

002570 

002571 

002572 

002573 

002574 

002575 

002576 

002577 

002578 

002579 

002580 OBBB 
08B0 

002581 OBBE 
002582 OBBF 
002583 OBCO 
002584 0BC1 
002585 0 B C 2 

002586 OBC 3 
002587 OBC 5 
002588 OBC 6 
002 589 0 B C 7 

002590 0BC8 
002591 OBC 9 
002592 OBC A 
002593 OBCB 
002 594 OBC C 
002595 OBCO 
002 596 OBC E 
002597 08 C F 

002598 OBDO 
002599 0BD2 
002600 0BD3 
002601 08D5 

0 8 D 7 

002602 0 B D 8 

002603 
002604 
002605 
002606 
002607 
002608 
002609 
002610 
002611 
00261 2 
002613 
002614 

00261 5 0 B 09 


8 F 00 11 7 A 
F 9 94 
C876 

8751 
87 53 

8752 
82 56 

E F 00 1168 
02 F F 
7001 
82 57 
0 F 51 
5041 
96 52 
2041 
1 B 02 
A654 
67 F A 
00 FF 

E800 11 6B 
77F6 

AF 00 1155 
8 F 80 1 1 7 A 
F994 
8384 


8 F 00 117 A 


★ 


* 

$B3 - 

ADDRESS WHERE CRC 

ACCUMULATOR IS STORED 

★ 

$B6 - 

ADDRESS OF CRC TYPE 

★ 

$ R 6 - 

CONTAINS NUMBER OF 

BITS IN CHARACTER 

★ 

$ R 7 - 

THE NUMBER OF CRC 

TO BE 

★ 


GENERATED. FROM THE 

TABLE AT $B3 

★ 

THE 

ACCUMULATED CRC IS STORED IN LOCATION CRCAC. 

CRC 

SAVE 

<SAV1/ = Z* F994 * 



LDR 

$R4/+$86 

PUT CRC TYPE INTO $R4 


CL 

= $R 1 



CL 

= $R 3 

CLEAR $R3 FOR LONG SHIFT 


CL 

= $R2 



NEG 

= $R 6 



STR 

$R6/<TL0C 

STORE COUNTER 


LLH 

$R 5 / $8 3 « + $R 3 



SOL 

$R 7 / 1 



NEG 

= $R 7 


CRC A 

STR 

$R5v=$R 1 



SOR 

$R 5 / 1 



X 0 R 

$R1/=$R 2 



SOR 

$R2 / 1 



BE V N 

$R1/>CRCB 



X 0 R 

$R2/=$R4 


CRCB 

BINC 

$R6/>CRCA 



LDH 

$R5/$B3.+$R3 



LDR 

$R6/<TL0C 

RESET CHAR. COUNT 


BINC 

$R7/>CRC A 

DO NEW CHARACTER 


STR 

$R2/<CR CAC 

STORE LAST CRC ACCUMULATED 


RSTR 

<SAV1/ = Z *F 9 94 4 

RESTORE REGS. 


JMP 

$84 



★ PARITY CALCULATOR 

* 

* TO USE/ MUST SET- 

* $ R 7 - RANGE OF DATA IN WOROS 

* $B1 - ADDRESS OF DATA AFTER PARITY WAS BEEN AOOEO 

* $B3 - ADDRESS OF DATA TO ADD PARITY ON 

* PTTY - 1 ME AN S ODD PARITY 

* 0 MEANS EVEN PARITY 

* 

CPAR SAVE <SAV1/=Z*EFDO 4 SAVE REGS. 
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OBOB 

EF 00 






002616 

OBDC 

9800 

1153 


LOR 

$R1#<CS 

LOR $ R1 WITH NUMBER TO SHIFT 

002617 

OBOE 

8801 



OEC 

= $R 1 


002618 

OBOF 

8755 



CL 

= $R 5 


002619 

OBEO 

8752 



CL 

= $R 2 

CLEAR INDEX 

002620 

0 B£1 

82 57 



NEG 

= $R 7 

NEGATE RANGE FOR BRANCH ANO INCREMENT 

002621 

08 E 2 

C 2 A3 


CPAR2 

LLH 

$R4/$B3.$R2 

LOAD $R4 WITH HALF WORD OF DATA BUFFER 

002622 

0BE3 

89 80 

1150 


CM2 

<CHSZFG 

SEE IF CHAR. SIZE TEST 

002623 

0BE5 

09 OF 



BE 

>CP AR 3 


002 62A 

0BE6 

6C08 



LOV 

$ R 6 # = 8 

IF 8 BIT CHAR. 00 NOT STRIP BITS 

002625 

0 BE 7 

E900 

1153 


C MR 

$ R 6 ✓ < C S 


002626 

0 BE 9 

09 OB 



BE 

>CPAR3 


002627 

OBEA 

8806 



OEC 

= S R 6 

IF 7 OR 6 BIT CHAR. STRIP FOR PARITY TO BE 

002628 

0BE8 

E9 00 

1153 


C MR 

$R6/<CS 


002629 

OBED 

0904 



BE 

>C P A R4 


002630 

OBEE 

E870 

001 F 


LOR 

$R6 / =X * 1 F * 

MASK TO STRIP WITH 6 BIT CHAR. 

002631 

OBFO 

0 F 83 



B 

>CP A R5 


002632 

OB F1 

E870 

003 F 

CPAR4 

LOR 

$R6,=X•3F* 

MASK TO STRIP WITH 7 BIT CHAR. 

002633 

OB F 3 

C 5 56 


CPAR5 

AND 

$R 4 * = $ R 6 

STRIP BIT TO CHAR SIZE MINUS PARITY BIT 

002634 

OBF 4 

CF 56 


CPAR3 

STR 

$R4 * =$R 6 

SAVE CHAR IN $R6 

002635 




★ 




002636 




★ 


CALCULATE PARITY 

FOR THE CHAR. 

002637 




★ 




002638 

OBF 5 

50C4 



DOR 

$R5,4 


002639 

0BF6 

CF 00 

11 6B 


STR 

$R4/<TL0C 


002640 

0 B F 8 

8754 



CL 

= $R4 


002641 

0 B F 9 

50 84 



DOL 

SR5/4 


002642 

OBF A 

C600 

11 68 


X OR 

$R4*<TL0C 


002643 

OBF C 

50C2 



DOR 

$R 5 * 2 


002644 

OBFO 

C F 00 

1 1 6B 


STR 

$R4,<TL0C 


002645 

OB F F 

87 54 



CL 

= $R 4 


002646 

OCOO 

5082 



DOL 

$R5,2 


002647 

ocoi 

C600 

11 6B 


X 0 R 

$R4/<TL0C 


002648 

0 C 0 3 

4041 



SOR 

$R4 # 1 


002649 

OC 04 

0682 



BCF 

>CPAR1 


002650 

OC 05 

8A 04 



INC 

= $ R 4 


002651 

0 C06 

C600 

1164 

CPAR1 

XOR 

$R4,<PTT Y 


002652 




* 




002653 

0C08 

4000 



SOL 

$R4,0 

SHIFT PARITY BIT TO POSITION 

002654 

0 C 09 

E4 54 



OR 

$R6^=$R4 

PUT PARITY BIT INTO DATA 

002655 

OCOA 

£7 EO 



STH 

$R6/$81.+$R2 

STORE INTO DATA SHOULD BE 

002656 

OCOB 

7780 

OB E 2 


BINC 

$R7,<CPAR2 

DO NEXT CHARACTER 

002657 

OCOD 

8 F 80 

11 7 A 


R ST R 

<SAV1# = 2 * EF DO' 

RESTORE REG. 


OC 0 F 

EF DO 






002658 

0C10 

8384 



JMP 

$84 

JUMP OUT OF PARITY FORMATION SUB-ROUTINE 

002659 
nn ?a a n 




* 




UUc oou 

002661 




* 




002662 




* 


SET TEST MODE ON 

FIRST LINE OF CLA 
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002663 




002664 




002665 




002666 

0C1 1 

8F00 

1 1 8A 


0C1 3 

DF8C 


002667 

0C14 

3E FE 


002668 

0C1 5 

C B 80 

OE 1 1 

002669 

0C1 7 

0F8E 


002670 




002671 




002672 




002673 




002 674 

0C1 8 

8 F 00 

1 1 8A 


0 C 1 A 

DF 8C 


002675 

OC 1 8 

C800 

1 1 3 F 

002676 

OC 1 D 

C 3 80 

OD 95 

002677 

OC 1 F 

8000 

1 1 C 4 


OC 21 

00 54 


002678 

0 C 2 2 

0 7 FO 


002679 

OC 23 

C B 80 

OE 14 

002680 

0 C 2 5 

C F 80 

0 C 34 

002681 

OC 2 7 

C800 

1145 

002682 

OC 29 

C380 

0D95 

002683 

0C2B 

C 5 70 

FFCO 

002684 

0C2D 

C F 00 

11 51 

002685 




002686 





0 C 2 F 

FB CO 

0003 


0 C 31 

D380 

0000 


0C33 

OF 80 



OC 34 

OC 2F 



0 C 3 5 

13 1C 



0 C 36 

1 2 A6 



OC 37 

11 51 


002687 

OC 38 

D3 80 

OD 38 

002688 

0 C 3 A 

1 2 C C 


002689 




002690 

OC 38 

87 57 


002691 

0C3C 

C 8 00 

1 1 3F 

002692 

0 C 3 E 

C 3 80 

OD 95 

002693 

0 C 4 0 

8000 

11 C5 


0 C 4 2 

00 54 


002694 

OC 4 3 

0700 

OC 47 

002695 

OC 4 5 

F 3 80 

OD 8 A 

002696 




002697 

OC 47 

D380 

0D63 

002698 

OC 49 

8 F 80 

118A 


0 C 48 

DF8C 


002699 

0C4C 

8384 



* 

★ 


LNJ $ B4 

,<STMD 



STMD 

SAVE 

<SAV2,=Z * DF 8C * 

SAVE 

REGS. 



ADV 

$R3,=-2 

SET 

$R3 TO REC V. CHAN. 

ON FIRST LINE 


LAB 

$B4/<CHLP 

LOAD 

$84 WITH ADDRESS 

OF CHANNEL PROG, 


B 

>STMD2 





* SET CURRENT LOOP ADAPTER FOR FASTEST SPEED 

★ 

SCLS SAVE <SAV2„=Z'DF8C' SAVE REGS. 



LOR 

$R4,<F0CC 


LNJ 

$B4,<CGSCH 

SCLS1 

10 

< BIT 0 , = $ R 4 


BIOF 

> S C L S1 


.. LAB 

$B4,<CHLPS 

STMD2 

STB 

$B4,<STMD3+4+$AF 


L DR 

SR4,<FINS 


LNJ 

$B4,<CGSCH 


AND 

$R4,=Z* FFCO* 


STR 

$R4,<CHNZ 


CHANNEL INITIALIZE 


LOAD $B4 WITH ADDRESS OF CHANNEL PROG. 

STORE ADDRESS FOR ZV$MLW 

LOAD AN I/O TO 6ET CHANNEL FOR ZVSMLW 

STRIP OFF DIRECTION BIT AND FUN CODE 
STORE CHANNEL FOR CALL 


STMD3 


STMD1 


CALL 

ZVSMLW,$,WC P,H X 200, 

CHNZ 


LNJ 

DC 

$B5,<SETLCT 
<LCT 

SEND OUT LCT 


CL 

LDR 

LNJ 

10 

= $ R 7 

$R4,<F0CC 
$ B4,< C GS C H 
<BIT1,=SR4 

CLEAR FOR SHORT DELAY OF 30 MS 
FORM CONTROL WORD 

FOR 

START I/O 

BIOT 

LNJ 

< S T M D1 

SB7,<E RMB 

ERROR: I/O WAS 

NAK 'ED 

LNJ 

RSTR 

$B5,<TDLAY 
<SA V 2*-Z* DF8C * 

TIME DELAY 
RESTORE REGS. 


JMP 

$B4 
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002700 




* 




002701 







S5SS::srsSSSSSSS3SS3SSSSSSSSJi88&B8»S«3SS 

002702 




★ 




002703 




★ 

CONVERT RTC TICKS TO MILSEC. 

002 70A 




* 




002705 

0C40 

8FOO 

117A 

TKSEC 

SAVE 

<SA V 1 # = Z ' 0 3 80 * 

SAVE REGS. 


0 C 4 F 

0380 






002706 




★ 




002707 

0 C 50 

C F 51 



STR 

$R4, = $R 1 

DUPLICATE VALUE IN $R1 

002708 

OC 51 

CBOO 

1157 


MUL 

$R4/<0IV1 


002709 

OC 5 3 

C F 00 

1168 


STR 

$R4,<TL0C 


002 71 0 

OC 55 

C851 



LOR 

$R4,=$R1 


00271 1 

OC 56 

CBOO 

1158 


MUL 

$R4/<0IV 2 


002712 

OC 58 

C370 

000A 


01 V 

$R4,=10 


002713 

OC 5 A 

C A 00 

116B 


ADO 

$R4,<TL0C 


00271 4 

OC 5C 

C F 00 

11 6B 


STR 

$R4,<TL0C 


002715 

0C5E 

C 8 51 



LOR 

$R4,=$R1 


002716 

OC 5 F 

CBOO 

1159 


MUL 

$R4,<DIV3 


002717 

OC 61 

C 3 70 

0064 


OIV 

$R4/=100 


002718 

OC 6 3 

C A 00 

1168 


A 0 0 

$R4/<TL0C 


002719 

OC 65 

C F 00 

116B 


STR 

$R4,<TL0C 


002720 

OC 67 

C 8 51 



LOR 

$R4,=$R1 


002721 

0C63 

CBOO 

1 1 5 A 


MUL 

$R4# <DIV 4 


002722 

OC 6*A 

C 3 70 

03E8 


OIV 

$ R 4 * =1000 


002723 

0C6C 

C A 00 

1 1 68 


A 0 0 

$R4/<TL0C 


002724 




★ 




002725 

0C6E 

8 F 80 

1 1 7 A 


RSTR 

<SAV1 ,=Z ' D380* 



OC 70 

03 80 






002726 

OC 71 

83 85 



JMP 

$B5 


002727 

nno 70 q 




* 




UUc fco 
002729 




* 




002730 




it 

CONVERT MS TO BITS/SEC 

(GIVEN CHAR. SIZE & NUMBER) 

002731 




* 




002732 

0 C 7 2 

8 F 00 

1 1 7 A 

BPS 

SAVE 

< S A V 1 / - Z * 0 F 80 * 

SAVE REGS. 


OC 74 

D F 80 






002733 

OC 7 5 

87 56 



CL 

= $R6 

CLEAR $R6 FOR DIVIDE 

002734 

OC 76 

9826 



L DR 

$R1 , S86.$R2 

LOAD $R1 WITH NUMBER OF CHAR. 

002735 

OC 77 

99 70 

OF 00 


C MR 

$R1 ,=3840 


002736 

OC 79 

0983 



BNE 

>BP S 1 


002737 

0 C 7 A 

IE 07 



ADV 

$ R1, =7 


002738 

OC 78 

9255 



SUB 

$R 1,=$R5 


002739 

0C7C 

F 8 70 

03E8 

BPS 1 

L DR 

$ R 7 , = 1 0 0 0 

CONVERSION FACTOR FOR MS TOC. 

002740 

0C7E 

FB 00 

1 1 54 


MUL 

$R7,<C SB 

multiply BY CHARACTER SIZE 

002741 

OC 80 

F 3 54 



DIV 

$R7,=$R4 

DIVIDE BY ACTUAL TIME IN MS 

002742 

OC 81 

8000 

11 6C 


SOI 

<TP 1 

STORE DOUBLE INTEGER 

002743 

OC 8 3 

8756 



CL 

= $R6 


002744 

0C84 

F8 00 

1 1 60 


L DR 

$R7,<TP2 


002745 

OC 86 

FB 51 



MUL 

$ R 7 , = $ R 1 




4 " \ 
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002746 

002 747 
002748 
002749 
002750 
002751 
002752 
002753 
002 754 
002755 
002756 
002757 
002 758 
002759 
002 760 
002761 
002762 
002 763 
002764 
002765 
002766 

002767 

002768 

002769 

002770 

002771 

002772 

002773 

002774 

002775 

002776 


002777 


002778 


0C87 

82 D7 


LB 

= $R 7* =Z *8000* 

0 C 88 

8000 




0C 89 

0502 


BBT 

>BP S 2 A 

OC 8 A 

69C3 


B E 2 

$ R6✓>BP S 2 

0C8B 

8A80 

11 5E 

B PS 2 A INC 

<HGS PD 

0 C 8 D 

8D00 

1161 

BPS 2 SDI 

< M S 8 S 

0 C 8 F 

8D30 

1227 

SDI 

<SYL SP0.SR3 

OC 91 

F800 

11 6C 

LDR 

$R7*<TP1 

0C93 

7F OA 


ML V 

$R7,=10 

0 C 94 

F 3 54 


DI V 

$R7,=$R4 

OC 9 5 

FF 55 


STR 

$R7,=$R 5 

OC 96 

DB 51 


MUL 

SR5,=$R1 

0 C 9 7 

D3 70 

00 0 A 

D I V 

$R5,=10 

0 C 99 

DA 00 

1162 

ADD 

$R5,<MSBS+1 

0C9B 

70 DO 


DOR 

$R7,16 

0C9C 

7 F OA 


ML V 

$R7,=10 

0C9D 

F 3 54 


D I V 

$R7/=$R4 

0C9E 

F B 51 


MUL 

$R7,=$R1 

0C9F 

F3 70 

0064 

D I V 

$R7/=100 

OC A1 

FA 55 


ADD 

$R7,=$R5 

0 C A 2 

F F 00 

1162 

STR 

$R 7* <M S 8S +1 

0CA4 

8 F 80 

11 7A 

RSTR 

<SAV1# =Z ' DF 80 

0 C A 6 

D F 80 




0 C A 7 

8385 


JMP 

$B5 


* 


PRINT LINE SPEED 


0CA8 

8FOO 

11 8A 


PRTLSP SAVE 

<SAV2,=Z * B88F * 

SAVE 

REGS. 

OC AA 

888F 







OCAB 

3041 



SOR 

$ R 3 / 1 

SHIFT 

$R3 TO REPRESENT LINE NUMBER 

OCAC 

BF 00 

1 1 63 


STR 

$R3,<TL0C 

STORE 

LINE NUMBER FOR ZVSTD 





CALL 

ZV$TC,MESG2,BYTP 

PRINT 

LINE TYPE 

OCAE 

FB CO 

0003 






OC BO 

0380 

0000 

X 





0CB2 

OF 80 







0 C B 3 

135B 







0CB4 

1 1 4E 



CALL 

ZVSTD^TLOC 

PRINT 

LINE NUMBER 

0CB5 

FB CO 

0003 






0 C B 7 

0380 

0000 

X 





0CB9 

OF 80 







0 C B A 

11 6B 



CALL 

ZV$T,MESG4 

PRINT 

* speed * 

OCBB 

FB CO 

0003 






OCBD 

0380 

0000 

X 





OCBF 

OF 80 







OCCO 

1 3 64 
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002779 

0CC1 

0380 

OC 40 



LNJ 

$85 *<TK SEC 

CONVERT NUMBER OF TICK IN $R4 TO MS 

/>. 

002780 





* 




1 V 

002781 

0CC3 

D380 

0C72 



LNJ 

$B5*<8PS 

USE $R4 TO CALCULATE BITS/SEC 

vy 

002782 

0CC5 

89 80 

1 1 5 E 



CMZ 

CHGSPD 

CHECK FOR HIGH SPEED LINE 


002783 

0CC7 

0919 




BE 

>PRLT3 



002784 

0CC8 

8C80 

1161 



L 01 

<MS BS 

LOAD DOUBLE INTERGER INTO $R6#$R7 


002785 

OCCA 

F370 

03E8 



D I V 

$R7,=1000 

FIND NUMBER OF KB 


002786 

OCCC 

F F 00 

1161 



STR 

$R7,<MSBS 



002787 

OCCE 

6064 




C M V 

$R6 * =1 00 



002788 

OCCF 

OA 02 




BAG 

>PRLT5 



002789 

OCDO 

6C64 




LDV 

$R6,=100 



002790 

0CD1 

E F 00 

1162 


PRLT5 

STR 

$R6^<MS8S+1 



002791 






CALL 

ZV$TD,MSBS/8KLS 

PRINT NUMBER OF KB 



OC 03 

FB CO 

0003 








OC 05 

0380 

0000 

X 







OC 07 

OF 80 









OC 08 

11 61 









0 C 09 

11 E2 








002792 






CALL 

ZV$T,COMMA 




OCOA 

FBCO 

0003 








OCOC 

0380 

0000 

X 







OCOE 

OF 80 









OCOF 

1 1 El 








002793 





PRLT3 

CALL 

ZV$TD,MSBS+1,BKLS 

PRINT LINE SPEED 



OCEO 

FBCO 

0003 








0CE2 

03 80 

0000 

X 







0 C E 4 

OF 80 









0 C E 5 

1 1 62 









0CE6 

11 E2 








002794 

0 C E 7 

89 80 

1 2 E 5 



CMZ 

<LC 3SY F 

IF SYNC. LINE ALL DONE 


002795 

0CE9 

0999 




BN E 

>PRL T1 

IF ASYNC. PRINT SHOULD BE 


002796 

OCEA 

£8 80 

1257 



LAB 

$B6,<ALSPBL 

LOAD ADDRESS OF 'should be* SPEED TABLE 


002797 

OCEC 

C870 

2108 



LDR 

$R4,=X'2108* 

IF NEW LINE SPEED CHANGE $B6 TO POINT TO TABL 


002798 

OCEE 

C908 

0306 



CMR 

$R4,*<ST1 



002799 

OCFO 

0903 




BE 

>PRLT7 



002800 

OC F 1 

EB 80 

1266 



LAB 

$B6✓< C M S P8L 



002801 





PRLT7 

CALL 

ZV$T*MESG5 

PRINT 'SHOULD BE* 



0 C F 3 

FBCO 

0003 








0 C F 5 

0380 

0000 

X 







OC F7 

O F 80 









OC F8 

1 3 6A 








002802 

0CF9 

B826 




LDR 

$R3,$B6.$R2 

LOAD $R3 WITH LINE SPEED 


002803 

OC FA 

BF 00 

116B 



STR 

$R3,<TL0C 



002804 






CALL 

Z V$ T D^TLOC 




OC F C 

FBCO 

0003 








OC F E 

0380 

0000 

X 







0000 

OF 80 









0001 

1 1 6B 








002805 

0D02 

8700 

1161 


PRLT1 

CL 

< M S B S 
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002806 

0D04 

8700 

11 62 

CL 

<MSBS*1 


002807 

0006 

8 F 80 

11 8 A 

R ST R 

<SAV2/ = Z* B8 8F * 

RESTORE R 


0D08 

88 8 F 





002808 

0009 

8384 


JMP 

$B4 


002809 




* 



002810 




*=========== 

it 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

M 

11 

M 

II 

II 

II 

II 

II 

II 

It 

II 

=== = = = = = = == = = = ====== ======= ======= = === = = 

002811 




* 



002812 




* GENERAL INITIALIZE FOR ML CC 


002813 




* 



002814 

000A 

8 F 00 

11 8 A 

GENITZ SAVE 

<SAV2/ = Z*11 18* 

SAVE 87/$R 7 


OOOC 

11 18 





002815 

0000 

87 57 


CL 

= $R 7 

ALLOW 30 MS DELAY 

002816 

ODOE 

C800 

1130 

LDR 

$R4/<F0MC 

GET FUNCTION CODE FOR INITIALIZE 

002817 

0010 

C 3 80 

0095 

LNJ 

$B4/<CGSCH 

MODIFY FOR CHANNEL 

002818 

0012 

8000 

11 C4 

10 

<BIT0/=$R4 

INITIALIZE 


0014 

00 54 





002819 

001 5 

0703 


BIOT 

>N2 


002820 

0016 

F3 80 

ODBA 

LNJ 

$B7,<ERMB 

INITIALIZE WAS NAK * EO 

002821 

0 018 

03 80 

00 63 

N2 LNJ 

$B5/<TDLAY 

WAIT 30 MS 

002822 

0 D1 A 

8F80 

1 1 8 A 

RSTR 

<SAV 2/ = Z* 11 18 * 



0 D 1 C 

11 18 





002823 

001 0 

83 84 


, JMP 

$B4 

RETURN 

002824 

002825 

002826 




* 






* 



002827 




* 

OUTPUT CHANNEL CONTROL 


002828 




* 



002829 




★ 

$R 2 - CONTAINS CHANNEL CONTROL TYPE 

002830 




* 



002831 

001 E 

8 F 00 

1 1 7 A 

STCR SAVE 

<SAV1/=Z *0008 * 

SAVE'REG. 


0020 

0008 





002832 

0021 

0852 


LDR 

$R5/=$R2 


002833 

0022 

C800 

1 1 3 F 

LDR 

$R4/< F 0 C C 

LOAD FUNCTION CODE FOR CHANNEL CONTROL 

002834 

0024 

OF 8C 


B 

>N1 A 


002835 




* = = = = = = = = = = = 


======================================== 

002836 




* 



002837 




* INPUT NEXT 

STATUS TO R5 


002838 




* 



002839 

0025 

8 F 00 

1 1 7 A 

I NX T SAVE 

<SAV1/*Z* 0008* 

B4 


0027 

0008 





002840 

0028 

C800 

1145 

LDR 

$R4/<FINS 

GET CONTROL WORD FOR INPUT NEXT STATUS 

002841 

0 02 A 

OF 86 


B 

>N1 A 


002842 




*=========== 

ii 

H 

n 

ii 

ii 

ii 

it 

it 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 


002843 




* 



002844 




* INPUT RANGE 


002845 




* 



002846 




★ 

S R 5 - RESULT OF RANGE 

INPUTED 

002847 




* 



002848 

0028 

8 F 00 

1 1 7 A 

I NR G SAVE 

<SAV1/=Z *0008* 

SAVE REG. 
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0020 

0008 






002849 

002E 

C800 

11 43 


LOR 

$R4,<FIR 

LOAD $R4 WITH FUNCTION CODE 

002850 

0030 

C380 

0095 

N1 A 

LNJ 

$84,<CGSCH 

MODIFY FOR CHANNEL 

002851 

0032 

8055 



10 

= $R 5/ = $R 4 



0033 

00 54 






002852 

0034 

07 03 



BIOT 

>N1 


002853 

0035 

F380 

ODBA 


LNJ 

$B7/<ERMB 

ERROE: I/O WAS NAK * ED 

002854 

0 0 37 

8 F 80 

1 1 7 A 

N1 

RSTR 

<SAV 1,»Z*0008* 



0039 

0008 






002855 

0D3A 

8384 



JMP 

$B4 



002856 

002857 

002858 






002859 




* SET 

UP LC 

T FOR CHANNEL SPECIFIED 

IN R3 

002860 




★ 




002861 




★ 


LNJ $B5,<SETLCT 


002862 




★ 


OC TABLE 


002863 




★ 




002864 

0038 

8 F 00 

1 1 7 A 

SETLCT 

SAVE 

<SAV1,=Z ' E8 EO 1 

R1 *R2*R4*B2#B1 


003D 

E8E0 






002865 

0D3E 

9C F5 



LD8 

$B1 *♦$B 5 

GET ADDRESS OF TABLE 

002866 

0 D 3 F 

87 51 



CL 

= $ R 1 


002867 




★ 




002868 

0D40 

A811 


LCT4A 

LOR 

$R2,$B1.$R1 

GET BYTE TO OUTPUT 

002869 

0041 

8 A 01 



INC 

-$R1 


002870 

0042 

2985 



BN EZ 

$R2/>LCT5A 

BRANCH IF NOT AT END OF TABLE 

002871 

0043 

8F 80 

1 1 7 A 


RSTR 

<SAV1/=Z•E8E0* 



0045 

E8E0 






002872 

0046 

8385 



JMP 

$85 

RE TURN 

002873 



, 

★ 




002874 

0047 

C8 00 

1141 

LCT5A 

LDR 

$R4/< F 08 L 

FUNCTION CODE FOROUT LCT BYTE 

002875 

0049 

C 3 80 

0095 


LNJ 

$B4 * <C G S CH 

FORM 10 CONTROL WORD 

002876 

0043 

8052 


LCT3A 

10 

= $R2/ = $ R4 

OUTPUT BYTE 


0 04 C 

00 54 






002877 

0040 

07 FE 



8 10 F 

>LCT3A 

CHECK IF TAKEN 

002878 

004E 

OF F2 



8 

>L C T 4 A 

GET NEXT BYTE 

002879 




* 




002880 




★:ss:: 

ii 

ii 

il 

ii 

it 

it 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

M 

ii 

it 

ii 

n 

ii 

n 

n 

ii 

ii 

:s:s:s::33s::s::sss:ssssssssss: 

002881 




*• 




002882 




★ 


FIND FIRST ACTIVE LINE 


002883 




★ 




002884 




★ 


SR3-START CHECK ON THIS LINE AND 

002885 




★ 


CYCLE THROUGH ALL 

LINES IF 

002886 




* 


ONE FOUND ON LINE 

NUMBER IS HERE 

002887 




* 




002888 




★ 


L N J $ B 5 # < F LN 


002889 




★ 


OC OF LINE TYPE 

TO SEARCH FOR 

002890 




★ 


<RE TURN> IF NO LINES 

ON 

002891 




* 


<RE TUR N> 



::::::: 



4 \ 

4 ,/ 
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002892 





* 





002893 

004 F 

8 F 00 

1 1 7 A 


FLN 

SAVE 

<SAVl,=Z'AOEO' 

SAVE REG, $R2,$B2, 

$ B1 


0051 

AO E0 








002894 

0052 

3041 




SOR 

$R3# 1 



002895 

0 D 5 3 

9C F5 




LDB 

$B1/+$B 5 



002896 

0054 

A801 




LOR 

$R2,$B1 

PUT LINE TYPE INTO 

$R2 

002897 

0 D 5 5 

AB 80 

11 CB 



LAB 

$B2,<ATLT 

ADDRESS OF ACTIVE 

LINE TABLE 

002898 

0057 

30 C8 



FLN2 

CMV 

$R3/=8 

SEE IF AT BOTTOM OF TABLE 

002899 

0058 

02 87 




BGE 

> F L N 3 . 



002900 

0059 

A9 7E 




CMR 

$R2* $B2.+$R3 

SEE IF INDEX LINE 

ON 

002901 

00 5 A 

09 FO 




BNE 

>f LN 2 



002902 

0058 

88 03 




DEC 

= $R3 

SET $R3 BACK TO VALUE FOUND 

002903 

00 5 C 

30 Cl 




SOL 

$R3,1 



002904 

0050 

OB C5 

0001 



LAB 

$B5 # $B5,1 

INCREMENT TO VALID 

RETURN 

002905 

00 5 F 

8 F 80 

1 1 7 A 


FLN3 

RSTR 

<SAVl,=Z * AO EO * 

RESTORE REG. 



0061 

AO EO 








002906 

0062 

83 85 




JMP 

$B5 

JUMP OUT OF ROUTINE 

002907 

002908 





* 














002909 





★ 





002910 





★ 


TIME DELAY 



00291 1 





★ 





002912 





★ 


LNJ $ B5 / < T DL AY 



002913 





* 





00291 4 

0063 

8 F 00 

1 1 7 A 


TDL AY 

SAVE 

<SAV1, = Z 1 Cl 80' 

SAVE REG. $R1 * $R7 



0065 

Cl 80 








002915 

0066 

1 C 09 



TDLA 

LDV 

$R 1 ^ =9 

LOAD CLOCK INITIAL 

COUNT 

00291 6 

0067 

9 F 00 

0000 

X 


STR 

$R1,<ZHRTCC 



002917 

0069 

1 C 05 




LDV 

$R1 /=5 



00291 8 

00 6 A 

00 04 




RTCN 


TURN ON REAL TIME 

CLOCK 

002919 

0 0 68 

9900 

0000 

X 

T0LA1 

CMR 

$R1,<ZHRTCC 



002920 

0060 

0882 




BAGE 

> T D L A 3 



002921 

0 06 E 

OF FD 




B 

>TDLA1 



002922 

006 F 

0005 



TDLA3 

RTC F 


TURN OFF REAL TIME 

CLOCK 

002923 

0070 

7776 




BDEC 

$R7,>TDLA 



002924 

0071 

8f 80 

1 1 7 A 



RSTR 

<SAV1# = Z'Cl 80* 

RESTORE $R1 



0073 

Cl 80 








002925 

002926 

0074 

8385 



* 

JMP 

$B5 



002927 





★ = xx = = 

M 

II 

II 

II 

II 

II 

n 

ii 

ii 

ii 

n 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

it 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

it 

it 

ii 

ii 

ii 

ti 

it 

ii 

ii 

ii 

ii 

it 

it 

H 

H 

II 

M 

II 

II 

II 

II 

II 

002928 





* 





002929 





* 


READ LCT 



002930 





* 





002931 





* 


LNJ $86,<RDLCT 



002932 





★ 


DC <ADDRESS> 



002933 





* 


DC <RANGE IN BYTE S> 



002934 





* 





002935 

0075 

8 F 00 

1 1 7A 


ROLCT 

SAVE 

<SAV 1, = Z ' C88C ' 

SAVE REGS. 



0077 

C88C 
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002936 

0078 

C800 

1143 



LOR 

$R4,<FIR 

LOAD DUMMY I/O 

002937 

0 0 7 A 

C3 80 

0095 



LNJ 

$B4,<CGSCH 

PUT PROPER CHANNEL IN 

002938 

0D7C 

C 5 70 

F F 80 



ANO 

$R4 0 -Z * FF80 ■ 


002939 

0D7E 

C F 00 

1 1 51 



STR 

$R4,<CHNZ 

STORE CHANNEL NUMBER FOR CALL 

002940 

0080 

C806 




LOR 

$R4/$86 

STORE ADDRESS IN ZV$MLR CALL 

002941 

0081 

C F 00 

1168 



STR 

$R4,<RLC TAD 


002942 

0083 

C846 

0001 



LOR 

$R4 ✓$86. 1 

STORE RANGE FOR ZV$MLR 

002943 

0D85 

C F 00 

1169 



STR 

$R4,<RLC TRG 


002944 

0087 

FB CO 

0003 



CALL 

ZV$MLR,LCTV,RLCTRG 

* RLC T AO^CHNZ 


0089 

D380 

0000 

X 






008B 

OF 80 








008C 

11 73 








0D8D 

11 69 








0 0 8 E 

11 68 








0 08 F 

11 51 







002945 

0D90 

8F 80 

1 1 7 A 



R ST R 

<SAV1/ = Z* C88C* 



0092 

C88C 







002946 

0093 

83 C6 

0002 



JMP 

$B6.2 


002947 

002948 





* 












002949 





* 




002950 





* 


CHANGE SUBCHANNEL 


002951 





* 




002952 





* 

$R3 -CONTAINS SUBCHANNEL WANTED 

002953 





* 

$R4 -CONTAINS I/O CONTROL 

WORD TO BE CHANGED 

002954 





★ 




002955 





* 

LNJ 

$84,<CGSCH 


002956 





* 




002957 





* 




002958 

0095 

3006 



CGSCH 

SOL 

$R3# 6 

SHIFT TO SUBCHANNEL POSITION 

002959 

0096 

C4 53 




OR 

$R4,=$R3 

OR SUBCHANNEL NUMBER INTO CONTROL WORD 

002960 

0097 

30 46 




SOR 

$R3* 6 

SHIFT TO NORMAL POSITION 

002961 

0098 

8384 




JMP 

$B4 

GO BACK 

002962 

002963 

002964 





★ 








* 




002965 





* 

CCB 

FORMA T ION 


002966 





★ 




002967 





★ 

$R3 

- CONTAINS SUBCHANNEL WANTED 

002968 





★ 

$ R4 

- CONTAINS RANGE (NUMBER OF BYTES) 

002969 





★ 




002970 





* 

LNJ 

$ B5 ✓ < MC CB 


002971 





* 

DC 

CPU ADDRESS 


002972 





•k 

DC 

RAM ADDRESS NUMBER OR CHANNEL CONTROL WORD. 

002973 





★ 




002974 

0099 

8 F 00 

1 1 7 A 


MCCB 

SAVE 

<S A V 1 # = Z * F0F8* 

SAVES $B1,$83,$B2,$B4,$R7,$R5#$R4,R2#& $R1 


009B 

FD F8 







002975 

0 09C 

7C7E 




LOV 

$R7/=126 
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002976 

0 0 9 D 

AC F5 



LOB 

$B2/+$B 5 

LOAD $B2 WITH CPU ADORESS 

002977 

0D9E 

A805 



LOR 

$R2,$85 

PUT RAM ADDRESS IN $R2 

002978 

0 0 9 F 

08 54 



LOR 

$ R 5 * =$ R 4 


002979 

0 0 AO 

C800 

1 1 40 


LDR 

$R4,<F0LD 

LOAD $R4 WITH I/O CONTROL WORO 

002980 

0DA2 

C 3 80 

0095 


LNJ 

$B4,<CGSCH 


002981 

0DA4 

79 00 

0DB3 

MCB5 

BEZ 

$R7,<MCER 


002982 

0DA6 

81 82 



IOL D 

$B2,=$R4,=$R5 

OUTPUT ADDRESS AND RANGE 


0 0 A 7 

00 54 







0DA8 

0055 






002983 

00A9 

88 07 



DEC 

= $R 7 


002 984 

00 A A 

07 FA 



8 I 0 F 

>MC B 5 


002985 

00 AB 

C800 

11 42 


LDR 

$R4,<F0CB 

LOAD $R4 WITH I/O CONTROL WORO 

002986 

0 0 A D 

C3 80 

OD 95 


LNJ 

$84,<CGSCH 

PUT I/O CONTROL WORO IN $R4 

002987 

0 0 A F 

8052 


MCB2 

10 

=$R2,=$R4 

OUTPUT MLCC RAM AO D RE S S 


OOBO 

00 54 






002988 

00B1 

07 FE 



BIOF 

>MC B 2 


002989 

00 B 2 

0 F 83 



B 

>MC 8 6 


002990 

0DB3 

F 3 80 

ODBA 

MCER 

LNJ 

$B7,<E RMB 

IOLO HAS BEEN NAK'ED 

002991 

0 0 B 5 

8F80 

117A 

MCB6 

RSTR 

<SAV1,=Z 1 F D F 8 * 

RESTORE REGS. 


0 0 B 7 

FO F8 






002992 

00B8 

83 C5 

0001 


JMP 

$B5. 1 


002993 




* 




002995 




* 




002996 




★ 


ERROR PRINT ROUTINE 

002997 




* 




002998 

0 0 BA 

8 F 00 

11 AA 

ERMB 

SAVE 

<SAV 4/=Z ' FF FF ' 

SAVE ALL REGS. FOR PRINT OUT 


ODBC 

FF FF 






002999 

0 0 B D 

C8 70 

4042 


LDR 

$R4,=A'MB' 

STORE "MB'* FOR PRINT 

003000 

0 DBF 

C F 00 

13A8 


STR 

$R4#<ERMG 


003001 

OOC 1 

0 F 88 



B 

>ER R OR 


003002 




★ 




003003 

0 0 C 2 

8F 00 

1 1 AA 

ERD8 

SAVE 

<SAV4, = Z'FFFF * 



0 0 C 4 

FF FF 






003004 

0 0 C 5 

C870 

4442 


LDR 

$R4,=A* DB* 


003005 

00C 7 

C F 00 

13A8 


STR 

$R4,<ERMG 


003006 




* 




003007 

OOC 9 

8800 

13A9 

ERROR 

LBF 

<ERM G+1,=X'FF * 



ODCB 

OOFF 






003008 

ODCC 

3041 



SOR 

$R3 ✓ 1 

SHIFT TO GET LINE NUMBER 

003009 

00 C D 

3E30 



ADV 

$ R 3 * =X 1 3 0 ' 

CHANGE NUMBER INTO ASCII 

003010 

0 DC E 

B4 00 

13A9 


OR 

$R3,<ERMG+1 


003011 

ODDO 

8F 00 

13A9 


STR 

$R3 ✓ <E R M G+1 

STORE LINE NUMBER 

003012 

0002 

1C FO 



LDV 

SRI ,=-1 6 

INTIALIZE LOOP COUNTER 

00301 3 

0003 

87 53 



CL 

= $R3 

CLEAR INDEX 

003014 

0004 

EBC7 

FFFE 


LAB 

$B6 r $87. -1 - $A F 

DECREMENT $B7 

003015 

OD 06 

E F 80 

ODDO 


STB 

$86* <E R R1+4+SAF 

STORE ERROR ADDRESS FOR ERROR CALL 

003016 




ERR1 

CALL 

Z V$ E R* $ * E RM G 



0008 

F8C0 

0003 
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ODDA 

D380 

0000 

X 






0 D DC 

OF 80 








ODDD 

0DD8 








ODDE 

13 A8 







003017 

ODDF 

EB 80 

1 1 EO 



LAB 

$B6/<CRLF 

PUT CR-L INTO CALL 

003018 

ODE 1 

C880 

128E 



LAB 

$B4 /<SP A CE 


003019 

0 D£ 3 

AB 80 

0 D F 5 



LAB 

$B2/<ERR3+4+2*$AF 


003026 

0DE5 

E F 82 



E R1 1 

STB 

$86/$82 


003027 

0 DE6 

89 80 

1158 



CMZ 

<ER F 

CHECK FLAG FOR SHORT REPORT 

003028 

0DE8 

0900 

OEOO 



BE 

<ERR 5 


003029 

ODEA 

8BB0 

1 1 A A 


ERR 2 

LA8 

$83/<SAV4.$R3 

FECTH AND STORE REGISTER 

003030 

ODEC 

9B80 

0 D F 4 



LAB 

$B1 ,<£RR3 + 4+$AF 


003036 

ODEE 

BF 81 



ERR21 

STB 

$B3/$B1 


003044 





ERR3 

CALL 

Z V$ T HZ / $ / $ 



ODEF 

F8C0 

0003 







0 D F 1 

D380 

0000 

X 






0 D F 3 

0 F 80 








0 D F 4 

ODEF 








0DF5 

ODEF 







003049 

00F6 

8 A D3 



ERR34 

INC 

= $R 3 

BUMP INDEX 

003050 

0 D F 7 

C F 82 




STB 

$84/$B 2 


003051 

0DF8 

3D 08 




CMV 

$R3/=7*$AF+1 

SEE IF CR-LF NEEDED 

003052 

0 D F 9 

09 84 




BNE 

>ER R 4 


003053 

ODFA 

EB 80 

1 1 EO 



LAB 

$B6/<CRLF 


003054 

ODFC 

E F 82 




ST 8 

$B6/$82 

PUT CR-LF INTO CALL 

003055 

ODFD 

1780 

ODEA 


ERR4 

BINC 

$R1* <E R R 2 

DO NEXT REGISTER 

003056 

ODFF 

0000 




HLT 


HALT AFTER ERROR 

003057 

OEOO 

8 F 80 

1 1 AA 


ERR 5 

RSTR 

<SAV4/=Z * FF FF * 

RESTORE REGISTERS 


0E02 

FFFF 







003058 

0E03 

8387 




JMP 

$B7 

RETURN 

003068 





SAF F 

NULL 



003069 

nn7 n t 





★ 




003 0 70 





* — ““ 




003071 





* 




003072 





* 


END OF PASS CHECK 


003073 





* 




003074 

0E04 

8700 

OOFF 


EDPCK 

CL 

<ST 0 P 


003075 

0E06 

89 80 

0000 

X 


CMZ 

<ZV $ TT Y 


003076 

0E08 

0900 

OOFF 



BE 

<S T OP 


003077 






CALL 

ZV$T C/ME SG8 



OEOA 

FB CO 

0003 







OEOC 

D380 

0000 

X 






OEOE 

OF 80 








OEOF 

13 78 







003078 

0E10 

8382 




JMP 

$B2 


003079 





★ 


£ ESSE* 53 £ 


003080 





* 




003081 





★ 




003082 





* 





c 
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003083 

003084 

003085 

003086 

003087 


OE 11 

003088 

003091 

0 E1 1 

5014 

003092 

003095 

003096 

OE 1 2 

3201 

003097 

003098 

003099 

003100 

003101 

0 E 1 3 

0000 

003102 


OE 1 4 

003103 

003106 

0 E 1 4 

90 OF 

003107 
003110 
0031 1 1 

OE 1 5 

34 01 

003112 
003113 
003114 
003115 
003116 
0031 1 7 

0 E 1 6 

0000 

003118 


OE 17 

003119 

003120 


0200 

003121 

003124 

0 E 1 7 

5018 

003125 

003128 

003131 

0 E 1 8 

34 AO 

003132 

003135 

0 E 1 9 

5014 

003136 

003139 

003140 

0 E 1 A 

32 01 

003141 

003144 

0E1B 

5 0 1 C 

003145 

003148 

0 E 1 C 

E 2 11 

003149 

003150 


02 OC 

003151 

003152 

003153 




* CHANNEL PR OMR A M FOR REV H 


SET TEST MODE ON CLA FOR SECOND LINE OF CLA 


* 

ORG 

X ' 2 00 ' 




CHLP 

EQU 

$ 




★ 

LD 

20 




★ 

OUT 

2 




★ 

WAIT 





* 

NOP 





* 

SET 

CURRENT LOOP 

ADAPTER 

TO FASTEST SPEED 


★ 

0 R 6 

X'200' 




CHLPS 

EQU 

$ 




★ 

LD 

= X 1 F' 




* 

OUT 

4 




* 

WAIT 





* 

NOP 





* 


CHANNEL 

PROGRAM 

FOR LOOP AT LINE ADAPT 

(REC) 

* 

ORG 

X* 200' 




CHLP1 

EQU 

$ 




★ 

LOC 

HLP1 




HLP 1 

EQU X * 0 2 00 1 




* 

LD 

24 


GET LINE SPEED (ASYNC) 

OR SYNC CHAR (SYNC) 

* 

OUT 

4 


OUTPUT IT 


* 

RECV 

0 


DUMMY REC. FOR CURRENT 

LOOP ADAPT 

★ 

LD 

20 


GET LINE CONTROL 


* 

OUT 

2 


OUTPUT IT 


* 

WAIT 





* 

LD 

28 


LOAD SYNC. FLAG IF ZERO 

LINE IS ASYNC. 

* 

BZT 

GETC 




★ 

LOC 

TRNX 




TRNX 

EQU X *0 20C' 










*# 






* 

RECV 

0 


INPUT CHARACTER 
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003156 



★ 

C 

24 


m A 

003157 

0E1D 

AO 52 





003160 



* 

BE F 

CKFF 



003161 

0 E 1 E 

1 8 FI 






003164 



★ 

WAIT 




003165 

0 E 1 F 

04 01 






003166 



* 

B 

TRNX 



003169 

0E20 

E0F9 






003170 



* 

LOC 

CKFF 



003171 


0214 

CKFF 

EQU X ' 0 2 1 4 ' 



003172 



* 

C 

-X * F F * 



003175 

0 E 21 

9 2 F F 






003176 



★ 

BET 

GETC1 



003179 

0E22 

El 09 






003180 



* 

S FS 




003181 



★ 

WAIT 




003182 

0E 23 

0301 






003183 



* 

B 

TRNX- 



003186 

OE 24 

EO FI 






003187 



+ H 





003188 








003189 



* 

LOC 

GETC 



003190 


02 1 C 

GETC 

EQU X '021C* 



003191 



★ 

RECV 

0 

INPUT CHARACTER 


003194 



* 

ST, 

STORE 

INTO DATA BUFFER 


003195 

0E25 

AO 11 






003196 



★ 

BLCT 

HLP1 A 



003199 

0E26 

E304 






003200 



★ 

LOC 

GETC1 



003201 


0220 

GETC1 

EQU X' 

0220' 



003202 



* 

WAIT 




003203 



* 

B 

GETC 



003204 

0 E 2 7 

01 EO 






003207 



★ 

LOC 

HLP 1 A 



003208 


0223 

HLP 1 A 

EQU X' 

0223' 



003209 



* 

BL8T 

GET.X 



003210 

OE 28 

FA E4 






003213 



* 

GNB 




003214 

0 E 29 

04 02 






003215 



* 

B 

GETC 


4 

003218 

0 E 2 A 

£0 F5 





003219 



★ 

LOC 

GETX 


' 4 ,_, j 

003220 


02 28 

GET X 

EQU X'0 2 28' 



003221 



★ 

LD 

= 0 

TURN OFF REC. 


003224 

0E2B 

9000 






003225 



★ 

OUT 

2 



003228 



★ 

GNB 




003229 

0 E 2 C 

3202 






003230 



* 

WAIT 
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003231 



★ 

B 

HLP1 


003232 

0 E 2 D 

01 EO 





003235 



* 

NOP 



003236 

0E2E 

02 00 





003237 



* 




003238 



★ 

CHANNEL PROGRAM 

FOR LOOP AT LINE ADAPT (XMIT) 

003239 



* 




003240 



* 

ORG 

X'4 00 ' 


003241 


OE 2F 

CHLP1A EQU 

$ 


003242 



* 

LOC 

LP1 A 


003243 


0400 

L P 1 A 

EQU X * 0 4 00' 


003244 



* 

LD 

2 

GET LINE CONFIGURATION 

003247 

0 E 2 F 

5002 





003248 



* 

OUT 

6 

OUTPUT IT 

003251 



★ 

LD 

= X'AA' 

LOAD FILL CHAR. 

003252 

0 E 30 

3690 





003255 



★ 

OUT 

4 

OUTPUT SYNC*. FILL CHAR. 

003258 

0 E 31 

AA 34 





003259 



★ 

WAIT 



003260 



★ 

LD 

28 

LOAD SYNC. FLAG 

003261 

0E 32 

01 50 





003264 



★ 

BZ T 

LP1AQD 

IF ZERO BRANCH TO OUTPUT CHAR 

003265 

OE 33 

1C E2 





003268 



★ 

LD 

= 6 


003269 

0 E 34 

15 90 





003272 



★ 

LOC 

XMS Y 


003273 


04 CD 

X MS Y 

EQU X *0400' 


003274 



★ 

ST 

63 


003275 

OE 35 

0651 





003278 



★ 

LD 

24 

LOAD SYNC. CHAR 

003-279 

0E36 

3F 50 





003282 



★ 

SEND 

0 

SEND IT 

003285 

0 E 3 7 

1860 





003286 



* 

LD 

63 

DO SIX TIMES 

003289 

OE 38 

50 3F 





003290 



* 

DEC 



003291 



* 

BZ T 

SDS Y 


003292 

OE 39 

05E2 





003295 



* 

WAIT 



003296 

OE 3A 

0401 





003297 



* 

B 

XMS Y 


003300 

0 E 3 8 

E0F4 





003301 



•k 

LOC 

SDS Y 


003302 


04 1A 

SOSY 

EQU X '041 A* 


003303 



* 

WAIT 



003304 



★ 

LD 

=X'FF* 


003305 

0E3C 

01 90 





003308 



★ - 

SEND 

0 


00331 1 

OE 3 D 

F F 60 
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003312 



* 

WAIT 


003313 



* 

LOC 

LP1ABD 

003314 


04 IF 

LP1ABO 

EQU X 

* 041F' 

003315 



★ 

LD, 

GET CHARACTER FROM DATA BUFFER 

003316 

0E3E 

01 10 




003317 



★ 

SEND 

0 OUTPUT IT 

003320 



*■ 

BLCT 

LP 1 AB 

003321 

0 E 3 F 

60 £3 




003324 



★ 

LOC 

LP1 AA 

003325 


0423 

L P1 A A 

EQU X* 

0423* 

003326 



★ 

WAIT 


003327 

0E40 

0401 




003328 



★ 

B 

LP1ABD 

003331 

0E41 

EOFA 




003332 



* 

LOC 

LP 1 AB 

003333 


04 26 

L P1 A B 

EQU X* 

0426* 

003334 



* 

WAIT 


003335 



★ 

LD 

= X*FF' 

003336 

0E42 

01 90 




003339 



* 

SEND 

0 

003342 

0E 4 3 

FF 60 




003343 



★ 

8L9T 

LP 1 AC 

003346 

0 E 44 

E404 




003347 



★ 

GNB 


003348 



★ 

B 

LP 1 AA 

003349 

0 E 4 5 

02 EO 




003352 



* 

LOC 

LP 1 AC 

003353 


04 2F 

LP1 AC 

EQU X* 

042F* 

003354 



* 

LO 

28 

003355 

0E46 

F550 




003358 



* 

BZ T 

LP1 AC 1 

003359 

0E47 

1CE2 




003362 



* 

WAIT 


003363 

0E48 

0501 




003364 



* 

LD 

= X * FF ' 

003367 

OE 49 

90 FF 




003368 



■k 

SEND 

0 

003371 



* 

LOC 

. L P 1 A C 1 

003372 


04 37 

LP1A Cl 

EQU X 

* 0437* 

003373 



* 

GNB 


003374 

0 E 4 A 

6002 




003375 



★ 

WAIT 


003376 



* 

B 

LP 1 A 

003377 

OE 48 

01 EO 




003380 



* 

NOP 


003381 

0E4C 

C600 




003382 



* 



003383 



★ 

RECEIVE PROGRAM FOR CRC AND PARITY 

003384 



* 
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003385 



003386 

003387 


OE AD 

003390 

003391 

00339A 

OE AD 

50 18 

003395 

003398 

OEAE 

3A50 

003 A 01 
003A02 
003A05 

OEAF 

1 A 32 

003A06 
003 AO 7 

OE 5 0 

AO 01 

003 A10 
003 A11 

0 E 51 

5018 

003A1A 
003 A 1 5 

OE52 

92 OF 

003A18 
003 A1 9 

0 E 5 3 

El IB 

003 A 20 
003 A 21 
003A2A 


02 OE 

003 A 2 5 
003A26 
003 A 2 9 

0 E 5 A 

A 0 01 

003A30 
003A33 

0 E 5 5 

AO 52 

003A3A 
003 A 3 7 

0 E 56 

1 8 El 

003 A 38 
003AA1 

0 E 5 7 

OB 50 

003AA2 
003 AA 5 

0 E 5 8 

1 A 93 

003AA8 

003AA9 

0 E 5 9 

FD 32 

003 A 52 
003 A 53 
003 A 56 

OE 5 A 

50 1 A 

003 A 57 
003A60 

0 E 5 B 

3 2 EO 

003A61 

003A62 


0 2 1 F 

003A63 

003A6A 

003A67 

0E5C 

FOCI 

003A68 

003A69 


0221 

003 A 70 
003 A 71 

OE 5 D 

AO 01 


* ORG X 1 200' 

CHLP2 EQU $ 

★ LO 2 A 


GET LINE SPEED <ASYNC> OR SYNC CHAR (SYNC) 


★ 

OUT 

A 

OUTPUT IT 

★ 

LD 

20 

LOAD LINE CONTROL 

★ 

OUT 

2 

OUTPUT IT 

* 

RECV 

0 


★ 

WAIT 



* 

LD 

2A 

SEE IF SYNC. LINE 

★ 

C 

u_ 

X 

li 

IF SYNC. SET UP TO RECV. 

★ 

BET 

RC VA 

A OR 5 SYNC. CHAR. 

* 

LOC 

J HQ Q 


J HQ Q 

EQU X ' 0 2 OE 

* 


★ 

RECV 

0 

RECEIVE FIRST SYNC CHAR. 

★ 

WAIT 



★ 

RECV 

0 

RECEIVE SECOND SYNC. 

★ 

C 

2A 

CHECK TO SEE IF TRUE SYNC. 

* 

BET 

JFQQ 


★ 

LD 

20 

SHUT OFF LINE 

* 

AND 

= X * FD ' 


* 

OUT 

2 


★ 

LD 

20 

SHUT LINE BACK ON 

★ 

OUT 

2 


★ 

B 

JHQQ 


* 

LOC 

JFQQ 


J FQQ 

EQU X '021 F 

* 


* 

WAIT 



* 

RECV 

0 

RECEIVE THIRD SYNC. 

* 

LOC 

NS T R 


NS T R 

EQU X *0221 

4 


* 

WAIT 



★ 

RECV 

0 

RECEIVE SYNC. OR START OF DATA CHAR 


<FF> 
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003474 



* 

C 

= X 1 FF * 


003475 

0E5E 

AO 92 





003478 



* 

BE F 

NS T R 


003479 

0E5F 

FF FI 





003482 



★ 

WAIT 



003483 

0E60 

FB 01 





003484 



* 

LOC 

RC V A 


003485 


02 28 

R C V A 

EQU X*0228* 


003486 



* 

LO 

23 

LOAD FLAG FOR TYPE OF RECV. 

003489 

0E61 

5017 





003490 



* 

C 

= 1 

IF TRUE TEST JUST CRC 

003493 

OE62 

9201 





003494 



* 

BET 

RE C VI 


003497 

0E63 

El OC 





003498 



* 

C 

-X *FO 1 

IF TRUE TEST JUST 

003501 

0E64 

92 FO 





003502 



★ 

BET 

REC V2 


003505 

0E65 

El OF 





003 506 



* 

LOC 

REC V3 


003507 


0232 

REC V3 

EQU X 1 

0232* 


003508* 



* 

RECV 

3 

TEST CRC ANO PARITY 

003511 



★ 

ST, 

STORE 

INTO 8UFFER 

003512 

0 E66 

A3 11 





003513 



* 

BLCT 

RCV 

BRANCH IF LAST CHARACTER TRUE 

003516 

0E67 

£312 





003517 



★ 

WAIT 



003518 



* 

B 

REC V3 


00351 9 

0 E 68 

01 EO 





003522 



* 




003523 



* 

LOC 

REC VI 


003524 


0239 

RECV1 

EQU X* 

0239* 


003525 



★ 

RECV 

1 

TEST CRC 

003528 

0E69 

FAA1 





003529 



★ 

• ST, 

STORE 

IN BUFFER 

003530 



* 

BLCT 

RCV 


003531 

0 E 6 A 

11 E3 





003534 



* 

WAIT 



003535 

0E 69 

0801 





003536 



* 

B 

REC VI 


003539 

0E6C 

EO FA 




'\ 

003540 



* 




003541 



* 

LOC 

REC V2 

..y 

003542 


0240 

RECV2 

EQU X* 

0240* 


003543 



* 

RECV 

2 

TEST PARITY 

003546 



* 

ST/ 



003547 

0 E 6 D 

A 2 11 





003548 



* 

BLCT 

RCV 


003551 

0E6E 

E 3 04 





003552 



* 

WAIT 
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003553 



* 

B 

REC V2 


003 5 5A 

0E6F 

01 EO 





003557 



★ 




003558 



★ 

LOC 

RCV 


003559 


0247 

RCV EQU 

X * 02 4 7 ' 


003560 



★ 

LO 

=0 

LOAD ZERO TO TURN OFF 

003561 

0E 70 

F A 90 





003564 



★ 

OUT 

2 

RECEIVE 

003567 

0 E 71 

0032 





003568 



* 

GNB 



003569 



* 

WAIT 



003570 

0 E 7 2 

0201 





003571 



* 

B 

RC VA 


003574 

0 E 73 

EO DB 





003575 



* 

NOP 



003 576 



★ 




003577 



★ 


XMIT PROGRAM 

FOR CRC AND PARITY TEST 

003578 



* 




003579 



A 

0 R G 

X* 4 00’ 


003580 

0E 74 

0000 





003581 


OE 75 

CHLP2A- 

EQU 

$ 


003582 



* 

LD 

2 

GET LINE CONFIGURATION 

003585 

0 E 7 5 

5002 





003586 



* 

OUT 

6 

OUTPUT IT 

003589 



★ 

LO 

=X* FA* 

LOAD FILL CHAR. 

003590 

0 E 76 

3690 





003593 



* 

OUT 

4 

OUTPUT SYNC. FILL CHAR. 

003596 

0 E 7 7 

F A 34 





003597 



* 

WAIT 



003398 



* 

LO 

24 

SEE IF SYNC. LINE 

003599 

OE 78 

01 50 





003602 



* 

C 

= X * F* 

IF SYNC. LINE SEND OUT FILL CHAR (LR 4) 

003603 

0 E 79 

1892 





003606 



* 

BET 

SNC 1 

AND 3 SYNC. (OR FILL) 

003607 

OE 7 A 

OF El 





003610 



★ 

LD 

= X * FA ' 

LOAD FILL CHAR. 

003611 

0E7B 

1890 





003614 



* 

OUT 

4 


003617 

0E7C 

FA 34 





003618 



* 

LD 

= 6 


003621 

OE 70 

9006 





003622 



* 

LOC 

XMV V 


003623 


0412 

XMVV EQU X *0412' 


003624 



★ 

ST 

63 


003627 

0E7E 

51 3F 





003628 



★ 

LD 

24 

LOAD SYNC. CHAR 

003631 

0 E 7 F 

5018 





003632 



* 

SEND 

0 

SEND IT 

003635 



* 

LD 

63 

DO SIX TIMES 
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003636 

0E 80 

6050 






003639 



★ 

DEC 




003640 

0E81 

3F05 






003641 



★ 

BZT 

SOW 



003644 

OE 8 2 

E 2 04 






003645 



* 

WAIT 




003646 



★ 

B 

XMW 



003647 

0E83 

01 EO 






003650 



* 

LOC 

SOW 



003651 


04 IF 

SOW 

EQU X'0 41 

F * 



003652 



* 

WAIT 




003653 

OE 84 

F401 






003654 



★ 

LO 

-X* FF* 



003657 

0 E 85 

90 F F 






003658 



★ 

SEND 

0 

XMIT START OF DATA CHAR. 

iff) 

003661 



★ 

WAIT 




003662 

0 E 86 

6001 






003663 



* 

LOC 

SNC1 



003664 


0424 

SNC1 

EQU X '0424' 



003665 



* 

LD 

23 

LOAD FLAG FOR TYPE OF SEND INST. 

003668 

0 E 8 7 

5017 






003669 



* 

C 

= 1 

IF TRUE TEST JUST CRC 


003672 

0 E88 

9201 






003673 



★ 

BET 

CPCRC 



003676 

OE 89 

El OC 






003677 



★ 

C 

=X 1 FO* 

IF TRUE TEST PARITY 


003680 

0E8 A 

92 FO 






003681 



* 

BET 

CPPAR 



003684 

0 E 88 

El OF 






003685 



★ 

LOC 

SNC 3 

TEST 80TH CRC AND PARITY 

ON XMIT 

003686 


042E 

SNC3 

EQU X * 04 2E' 



003687 



* 

LD, 




003688 



* 

SEND 

3 



003691 

0E8C 

1063 






003692 



* 

BLCT 

LCB1 

BRANCH ON LAST CHAR. 


003695 

0E80 

E312 






003696 



* 

WAIT 




003697 



★ 

B 

SNC 3 

DUE NEXT CHAR. 


003698 

0 E 8 E 

01 £0 






003701 



★ 

LOC 

CPC RC 



003702 


04 35 

CPCRC 

EQU X• 0 435' 



003703 



* 

LD, 

LOAD 

CHAR. FROM DATA BUFFER 


003704 

0E8F 

FA 10 






003705 



* 

SEND 

1 

XMIT CHAR. AND CALCULATE 

CRC 

003708 



•k 

BLCT 

LCB1 

BRANCH ON LAST CHAR. 


003709 

0 E 90 

61 E3 






003712 



* 

WAIT 




003713 

0E91 

OB 01 






003714 



* 

B 

CPCRC 

DUE NEXT CHAR. 





yf ^ X 
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c 


003717 

OE 92 

EOFA 




003718 



★ 

LOC 

CPPAR 

00371 9 


04 3C 

CPPAR EQU X* 043C* 

003720 



★ 

L D * 

LOAD 

003721 



★ 

SEND 

2 

003 72 A 

0 E 9 3 

1062 




003725 



★ 

BLCT 

LCB1 

003728 

0E94 

E 3 04 




003729 



* 

WAIT 


003730 



★ 

B 

CPPAR 

003731 

0 E 9 5 

01 EO 




003734 



* 

LOC 

LCB1 

003735 


0443 

LCB1 

EQU X *0 443 

t 

003736 



★ 

WAIT 


003737 

0 E 96 

F A 01 




003738 



★ 

LD 

= X * FF 

003741 

OE 97 

90 FF 




003742 




SEND 

n 

o 

003745 



* 

BLBT 

LCB2 

003746 

0E98 

60 £4 




003749 



★ 

B 

SNC 1 

003750 

0 E 99 

03 EO 




003753 



★ 

LOC 

LC £2 

003754 


044B 

LCB2 

EQU X * 0 44B * 

003755 



★ 

LD 

24 

003756 

0 E 9 A 

DA 50 




003759 



* 

C 

= X • F* 

003760 

0E9B 

1892 




003763 



★ 

BET 

NWT 

003764 

0E9C 

OF El 




003767 



★ 

WAIT 


003768 

OE 9 0 

0501 




003769 



★ 

LD 

= X ' FF 

003772 

0E9E 

90 FF 




003773 



* 

SEND 

0 

003776 



★ 

LOC 

NWT 

003777 


04 55 

NWT 

EQU X' 04 5 5 * 


003778 



* 

LD 

20 

003779 

0 E 9 F 

60 50 




003782 



* 

AND 

= X * FE 

003783 

0 E AO 

1493 




003786 



★ 

OUT 

2 

003789 

OE A 1 

FE 32 




003790 



* 

GNB 


003791 



★ 

WAIT 


003792 

0EA2 

02 Cl 




003793 



★ 

B 

SNC1 

003796 

0 E A 3 

EO C 7 




003797 



★ 

NOP 



CHAR. FROM DATA BUFFER 
MIT CHAR. WITH PARITY 


OUTPUT OUMMY CHAR. FOR SHIFT REG. 

BRANCH ON LAST BLOCK 
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003798 



* 




003799 



* 

RECEIVE PROGRAM FOR 

CHARACTER SIZE TEST 

003800 



■ * 




003801 



★ 

ORG 

X*200* 


003802 

0EA4 

0000 





003803 


OE A5 

CHLP3 

EQU 

$ 


003804 



★ 

LOC 

RCP3 


003805 


0200 

RCP3 

EQU X * 0200* 


003806 



★ 

LO 

24 

GET LINE SPEED <ASYNC3 OR SYNC CHAR <SYNC) 

003809 

0E A 5 

5018 





003810 



★ 

OUT 

4 

OUTPUT IT 

003813 



* 

LO 

20 


003814 

0EA6 

34 50 





003817 



★ 

OUT 

2 

OUTPUT LINE CONTROL 

003820 

0EA7 

14 32 





003821 



★ 

RE CV 

0 


003824 



★ 

WAIT 



003825 

OE A8 

AO 01 





003826 



★ 

LO 

24 

SEE IF SYNC TO RECV. 

003829 

0EA9 

5018 





003830 



* 

C 

= X 1 F* 


003833 

OEAA 

92 OF 





003834 



★ 

BET 

RCCH 


003837 

OE AB 

El 21 





003838 



★ 

LOC 

JHYY 


003839 


02 OE 

JHYY 

EQU X * 02OE * 


003840 



★ 

RECV 

0 

INPUT. FIRST SYNC. 

003843 



★ 

WAIT 



003844 

0 E A C 

AO 01 





003845 



* 

LO 

24 


003848 

0 E A 0 

5018 





003849 



-*r 

AND 

28 


003852 

OEAE 

53 1 C 





003853 



* 

ST 

59 


003856 

OEAF 

51 3B 





003857 



* 

RECV 

0 

INPUT SECOND SYNC. 

003860 



* 

C 

59 

CHECK TO SEE IF TRUE SYNC. 

003861 

OE 80 

AO 52 





003864 



* 

BET 

J FY Y 


003865 

0 E 81 

3BE1 





003868 



* 

LO 

20 

SHUT OFF LINE 

003869 

OE 82 

OB 50 





003872 



★ 

AND 

= X* FO* 


003873 

OE 83 

1493 





003876 



* 

OUT 

2 


003879 

OE 84 

F D 32 





003880 



* 

LO 

20 

SHUT LINE BACK ON 

003883 

OE 8 5 

5014 





003884 



■k 

OUT 

2 



l iJ 


r4 
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003887 



★ 

B 

JHY Y 



003888 

0 E 8 6 

32 EO 






003891 



* 

LOC 

J F Y Y 



003892 


0225 

J FYY 

EQU X * 0 2 25 

i 



003893 



* 

WAIT 




003894 

0 E 87 

EA Cl 






003895 



★ 

RECV 

0 

INPUT 

THIRD SYNC. 

003898 



* 

LOC 

RCKSY 



003899 


02 27 

RCKSY 

EQU X * 0227* 



003900 



★ 

WAIT 




003901 

0EB8 

AO 01 






003902 



★ 

RECV 

0 



003905 



★ 

C 

= X* IF* 

SEE IF 

START OF DATA CHARACTER 

003906 

0EB9 

AO 92 






003909 



★ 

BE F 

RCKSY 



003910 

0 E 8 A 

1 F FI 






003913 



★ 

WAIT 




003914 

0 E 8 B 

F B 01 






00391 5 



* 

LOC 

RCCH 



003916 


02 2E 

RCCH 

EQU X 1 0 2 2E 

* 



003917 



★ 

LO 

2 

CHECK 

FOR FIVE BIT CHAR. 

003920 

OEBC 

5002 






003921 



■* 

BZ T 

NPRY 



003924 

OEBD 

E 2 08 






003925 



★ 

RECV. CHAR 

: WITH PARITY 6-7 BIT 

CHAR. 


003926 



★ 

LOC 

PR Y T 



003927 


02 32 

PR Y T 

EQU X *0232 

« 



003928 



★ 

RECV 

2 



003931 



* 

ST 




003932 

OEBE 

A 2 11 






003933 



* 

BLCT 

SHFL 



003936 

0E8F 

E30B 






003937 



* 

WAIT 




003938 



★ 

B 

PR Y T 



003939 

OECO 

01 EO 






003942 



* 

RECV. FIVE 

BIT CHAR. NO PARITY 



003943 



★ 

LOC 

NPRY 



003944 


02 39 

NPRY 

EQU X'0239* 



003945 



★ 

RECV 

0 



003948 

0 E C1 

FA AO 






003949 



★ 

ST 




003950 



* 

BLCT 

SHFL 



003951 

0 E C 2 

11 E 3 






003954 



* 

WAIT 




003955 

0EC3 

04 Cl 






003956 



* 

B 

NPRY 



003959 

0EC4 

EO FA 






003960 



* 

TURN OFF 

THE LINE 



003961 



* 

LOC 

SHFL 
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003962 


0240 

SHFL EQU X f 0 2 40 * 


.p^***s 

# 

003963 



* 

LD 

=0 


1 

003966 

0EC5 

9000 






003967 



* 

OUT 

2 



003970 



* 

GNB • 




003971 

0EC6 

3202 






003972 



* 

WAIT 




003973 



* 

B 

RCP3 



003974 

0 E C 7 

01 £0 






003977 



* 

NOP 




003978 

0EC8 

BA 00 






003979 



* 





003980 



* 

TRANSMIT PROGRAM 

FOR CHARACTER SIZE TEST 


003981 



★ 

ORG 

X* 400* 



003982 


0EC9 

CHLP3A 

EQU 

$ 



003983 



★ 

LD 

2 

GET LINE CONFIGURATION 


003986 

0 E C 9 

5002 






003987 



★ 

OUT 

6 

OUTPUT IT 


003990 



★ 

LD 

-X * FA* 

LOAD FILL CHAR. 


003991 

OECA 

3690 






003994 



* 

OUT 

4 

OUTPUT SYNC. FILL CHAR. 


003997 

0 E C 8 

FA 34 






003998 



4c 

WAIT 




003999 



4c 

LD 

= X* IF* 

LOAD DEFAULT MASK TO STRIP 5 BITS 


004000 

0 EC C 

01 90 






004003 



4C 

ST 

27 



004004 

OECD 

1 F51 






004007 



* 

ST 

28 



004008 

OECE 

1 B 51 






004011 



★ 

LD 

= X * FA* 

LOAD FILL CHAR. 


004012 

OECF 

1C 90 






004015 



* 

OUT 

4 

OUTPUT SYNC. CHAR. 


004018 

OEDO 

FA 34 






004019 



4c 

LD 

2 



004022 

0 E D1 

5002 






004023 



★ 

BZT 

XPYQ 



004026 

0ED2 

E222 






004027 



* SET 

MASK TO 

STRIP BITS FOR 

SYNC. CHAR. ON RECV. SIDE 


004028 



4c 

C 

= X * 40 *• 



004031 

0ED3 

9240 






004032 



4c 

BEF 

N61 



004035 

0ED4 

FI OA 





\ .^ 

004036 



4c 

LD 

= X* 3F* 



004039 

0ED5 

90 3 F 






004040 



4c 

ST 

28 



004043 

0ED6 

51 1C 






004044 



4c 

SR 




004045 



* 

ST 

27 



004046 

0ED7 

0751 
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004049 



★ 

B 

XPYQ 


004050 

0E 08 

1BE0 





004053 



★ 

LOC 

N61 


004054 


0269 

N61 

EQU X * 02 6 9 * 



004055 



★ 

C 

it 

X 

00 

o 


004056 

0E 09 

1592 





004059 



★ 

BE F 

N71 


004060 

OEOA 

80 F1 





004063 



★ 

LD 

=X*7F* 


004 064 

0 E OB 

OA 90 





004067 



★ 

ST 

28 


004068 

0 E DC 

7 F 51 





004071 



★ 

SR 



004072 

0 E 0 0 

1C 07 





004073 



★ 

ST 

27 


004076 

OEOE 

51 IB 





004077 



* 

B 

XPYQ 


004 080 

OEDF 

E008 





004081 



* 

LOC 

N 7 1 


004082 


02 76 

N71 

EQU X * 02 76* 



004083 



★ 

LD 

= X’F F ' 


004086 

OEEO 

90 F F 





004087 



* 

ST 

28 


004 090 

0EE1 

51 1C 





004091 



* 

SR 



004092 



★ 

ST 

27 


004093 

0EE2 

0751 





004096 



★ 

LOC 

XPYQ 


004097 


02 70 

XPYQ 

EQU X *02 70* 


004098 



* 

LD 

24 


004 099 

0EE3 

1850 





004102 



★ 

C 

= X * F' 


004103 

0EE4 

1892 





004106 



* 

BET 

XMNS 

BRANCH ON ASYNC. LINE 

004 1 07 

0EE5 

OF El 





004110 



★ 

LD 

=6 


004111 

0EE6 

1590 





004114 



★ 

LOC 

XMZZ 


004115 


0285 

XMZZ 

EQU X * 0 2 85 

« 


004116 



* 

ST 

63 


004 1 1 7 

0 E E 7 

0651 





004120 



* 

LD 

24 

LOAD SYNC. CHAR 

004121 

0 E E 8 

3F 50 





004124 



★ 

SEND 

0 

SEND IT 

004127 

0EE9 

1860 





004128 



* 

LD 

63 

DO SIX TIMES 

004131 

0 E E A 

503F 





004132 



★ 

DEC 



004133 



* 

BZ T 

SDZZ 
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004134 

0 E E 3 

05 E2 




004137 



* 

WAIT 

'L 

004138 

OEEC 

0401 



004139 



★ 

B 

XMZZ 

004142 

OEED 

E0F4 




004143 



k 

LOC 

SDZZ 

004144 


02 92 

S 02 Z 

EQU X * 0 292 

« 

004145 



* 

WAIT 


004146 



★ 

LD 

u. 

X 

II 

004147 

OEEE 

01 90 




004150 



★ 

SEND 

0 XMIT START OF DATA CHAR. 

004153 

OEEF 

1 F60 




004154 



* 

WAIT 


004155 



* 

LOC 

XMNS 

004156 


0297 

XMNS 

EQU X * 02 97* 

004157 



* 

LO 

2 

004158 

0 £ F 0 

01 50 




004161 



★ 

BZT 

xnpy' 

004162 

0 E F1 

02E2 




004165 



★ 

SEND DATA WITH PARITY 

004166 



* 

LOC 

XPY 

004167 


029B 

xpy 

EQU X * 02 9B * 


004168 



* 

LD 


004169 

0 E F 2 

OA 1 0 




004170 



* 

AND 

27 

004173 

OE F3 

5318 




0041 74 ' 



k 

SEND 

2 

004177 



k 

BLCT 

EDXT 

004178 

0 E F 4 

62E3 




004181 



k 

WAIT 


004182 

0 E F 5 

0001 




004183 



k 

B 

XPY 

004186 

0 E F 6 

E0F8 




004187 



k 

SEND DATA 

, FIVE BIT NO PARITY 

004188 



k 

LOC 

XNPY 

004189 


02 A4 

XNP Y 

EQU X * 0 2 A 4 

, t 

004190 



* 

LD 


004191 



★ 

AND 

27 

004192 

OE F 7 

10 53 




004195 



* 

SEND 

0 ■ 

004198 

0EF8 

I860 




004199 



* 

BLCT 

EDXT 

004202 

0EF9 

E304 




004203 



★ 

WAIT 


004204 



★ 

B 

XNPY 

004205 

0 E F A 

01 EO 




004208 



★ 

XMIT DUMMY CHAR. TO SHIFT LAST DATA 

004209 



* 

LOC 

EDXT 

004210 


02 AD 

EOXT 

EQU X *0 2 AD 

i* 




C 
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004 21 1 



★ 

WAIT 


00421 2 

OEFB 

F801 




004213 



* 

LD 

27 

004216 

OEFC 

50 1 B 




004217 



★ 

SEND 

0 

004220 



★ 

BLBT 

NX T B 

004221 

OEFO 

60E4 




004224 



* 

WAIT 


004225 

OEFE 

0401 




004226 



★ 

B 

XMNS 

004229 

OE F F 

E0E2 




004230 



* 

LOC 

NX T B 

004231 


02 B6 

NX T B 

EQU X '0286' 

004232 



* 

LD 

24 

004235 

OFOO 

5018 




004236 



★ 

C 

= X * F* 

004239 

0 F 01 

92 OF 




004240 



★ 

BET 

EOP 

004243 

0F02 

El 05 




004244 



* 

WAIT 


004245 



* 

LD 

27 

004246 

0 F 0 3 

01 50 




004249 



■k 

SEND 

0 

004252 

0F04 

IB 60 




004253 



* 

LOC 

EOP 

004254 


02 CO 

E OP EQU X * 02 C 0 

* 

004255 



* 

GNB 


004256 



★ 

WAIT 


004257 

0 F 0 5 

0201 




004258 



★ 

B 

EDXT 

004261 

0 F 06 

EOEA 




004262 



★ 

NOP 


004 263 



* 



004264 



★ 

RECEIVE PROGRAM FOR OVERRUN TEST 

004265 



★ 



004266 



* 

ORG 

X* 200* 

004267 

0 F07 

0000 




004268 


0 F 08 

CHLP4 

EQU 

$ 

004269 



* 

LD 

= 10 

004272 

0 F 08 

90 0A 




004273 



* 

ST 

28 

004276 

0 F 09 

51 1C 




004277 



* 

LD 

2 

004280 

OFOA 

5002 




004281 



★ 

OUT 

6 

004284 



* 

LD 

24 GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 

004285 

0 F OB 

3650 




004288 



* 

OUT 

4 OUTPUT IT 

004291 

OFOC 

18 34 
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004 29 2 o 



★ 

LD 

20 

004295 

OFOD 

5014 




004296 



* 

OUT 

2 

004299 



★ 

RECV 

0 

004302 

OFOE 

32 AO 




004303 



* 

WAIT 


004304 



* 



004 305 



* 

LOC 

BEG 

004306 


02 OF 

BEG 

EQU X * 02 0 F' 


004307 



★ 

LD 

24 

004308 

OFOF 

01 50 




00431 1 



* 

C 

u. 

X 

it 

004312 

0 F 1 0 

1892 




004315 



* 

BET 

RMC H 

004316 

0 F 1 1 

OF E1 




00431 9 



★ 

LOC 

JHRR 

004320 


02 15 

J HR R 

EQU X ’0 215 * 

004321 



★ 

RECV 

0 

004324 

0 F 1 2 

1 B AO 




Q04 325 



* 

WAIT 


004326 



★ 

RECV 

0 

004329 

0 F 1 3 

01 AO 




004330 



* 

C 

24 

004333 

0 F 1 4 

5218 




004334 



* 

BET 

JFRR 

004337 

0 F 1 5 

El 08 




004338 



* 

LD 

20 

004341 

OF 1 6 

5014 




004342 



★ 

AND 

= X * FD 

004345 

0 F 1 7 

9 3 F D 




004346 



★ 

OUT 

2 

004349 



* 

LD 

20 

004350 

0F1 8 

32 50 




004 353 



* 

OUT 

2 

004356 

0 F 1 9 

1432 




004357 



★ 

B 

JHRR 

004360 

0 F 1 A 

EOFO 




004361 



★ 

LOC 

JFRR 

004362 


0226 

J FRR 

EQU X '0226* 

004363 



■k 

WAIT 


004 364 



* 

RECV 

0 

004367 

0 F 1 B 

01 AO 




004368 



★ 

LOC 

NS C H 

004369 


0228 

NS C H 

EQU X '0228* 

004370 



★ 

WAIT 


004 371 



* 

RECV 

0 

004 374 

0 F 1 C 

01 AO 




004 375 



* 

C 

= X • FF 

004 378 

0 F 1 D 

92FF 






1ST SYNC. 

2ND SYNC. 

CHECK TO SEE IF TRUE SYNC. 

SHUT OFF LINE 

SHUT LINE BACK ON 


3RD SYNC. 


'f % 




SEE IF START DATA CHAR. 
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004379 

004382 

one 

FI FB 

004383 

004384 

004385 


02 2F 

004386 

004389 

0F1 F 

01 AO 

004390 
004 391 
004 392 

OF 20 

11 E 3 

004395 

004396 

OF 21 

04 01 

004 397 
004400 

0 F 2 2 

EO FA 

004401 

004402 

004403 


02 36 

004404 

004407 

0F23 

9000 

004408 

004411 

004412 

0 F 24 

3202 

004413 

004414 

004415 

0 F 2 5 

01 EO 

004418 

004419 

004420 


02 3D 

004421 

004422 

0 F 2 6 

D350 

004425 

004426 

0 F 2 7 

1 D F2 

004429 

004430 

0 F 28 

0206 

004431 

004432 


0242 

004433 

004436 

0 F 2 9 

51 IE 

004437 

004440 

0 F 2 A 

905E 

004441 

004442 


0246 

004443 

004444 

004445 

0 F 2 B 

05 E 2 

004448 

004449 

0 F 2 C 

0 3 EO 

004452 

004453 


024B 


★ 

BE F 

NSCH 

★ 

WAIT 


★ 

LOC 

RMCH 

RMCH 

EQU X '022F 

4 

★ 

RECV 

0 

★ 

ST 


★ 

BLCT 

REND 


WAIT 


* 

B 

RMCH 

* 

* 

LOC 

REND 

REND 

EQU X * 02 36 

i 

★ 

1 D 

=n 

★ 

OUT 

2 

* 

GNB 


★ 

WAIT 


* 

B 

BE^ 

* 

★ 

LOC 

DLAY 

DLAY 

EQU X * 02 3D 
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005238 



* 

AND 

ii 

X 

O 


005241 

0F05 

9304 





005242 



★ 

B2T 

BEP Y 


005245 

0FD6 

E 2 05 





005246 



* 

LD 

= X' 11 • 


005249 

0FD7 

9011 





005250 



★ 

ST 

62 


005253 

0 F D 8 

51 3E 





005254 



★ 

LOC 

BEP Y 


005255 


04 10 

8EPY 

EQU X *04 10* 


005256 



* 

LD 

= 3 


005259 

0FD9 

9003 





005260 



* 

LOC 

XMBB 


005261 


04 12 

XMBB 

EQU X *0412* 


005262 



* 

ST 

59 


005265 

0 F D A 

51 3B 





005266 



* 

LD 

24 

LOAD SYNC. CHAR 

005269 

Of D9 

5018 





005270 



* 

SEND 

0 

SEND IT 

005273 



* 

LD 

59 

DO SIX TIMES 

005274 

0 F DC 

60 50 





005277 



* 

DEC 
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005278 

0 F 00 

3605 




005279 



* 

BZT 

SOBB 

005282 

OF0E 

E204 




005283 



★ 

WAIT 


005284 



* 

B 

XMBB 

005285 

0 F OF 

01 EO 




005288 



* 

LOC 

SOBB 

005289 


04 IF 

S 088 

EQU X * 0 41F * 

005290 



★ 

WAIT 


005291 

0 F £ 0 

F 401 




005292 



★ ' 

LO 

30 

005295 

0 F E 1 

50 1E 




005296 



* 

BZ F 

ORU 0 

005299 

0FE2 

F2 37 




005300 



★ 

L 0 

20 

005303 

0 F E 3 

5014 




005304 



★ 

AN 0 

o 

u_ 

X 

II 

005307 

0FE4 

93 FO 




005308 



* 

OUT 

2 

00*31 1 



* 

L 0 

= 58 

U05312 

0 F E 5 

32 90 




005315 



* 

LOC 

PGC X 

005316 


04 2B 

PGC X 

EQU X *04 2E 

1* 

005317 



* 

ST 

59 

00531,8 

0FE6 

3 A 51 




005321 



★ 

LO 


005322 

0 F E 7 

3B10 




005323 



•k 

SEN0 

0 

005326 



* 

L 0 

59 

005327 

0FE8 

60 50 




005330 



* 

0EC 


005331 

0 F E 9 

3B 05 




005332 



* 

BZT 

ALO 

005335 

0 F E A 

£203 




005336 



★ 

B 

PGC X 

005339 

OF E9 

E0F6 




005340 



* 

LOC 

ALO 

005341 


04 36 

AL0 EQU X * 04 36* 


005342 



★ 

IN 

5 

005345 



* 

ANO 

= X * 04 

005346 

0 F EC 

2593 




005349 



* 

BZ F 

BEPY1 

005350 

0 F E 0 

04F2 




005353 



* 

LO 

r\j 

<\j 

X 

II 

005354 

OF EE 

05 90 




005357 



* 

ST 

62 

005 358 

OFEF 

22 51 




005361 



* 

LOC 

BEP Yl 

005362 


043F 

8EPY1 

EQU X'FMF' 


C 
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005363 



★ 

LD 

= 70 

005364 

OF FO 

3E90 




005367 



* 

LOC 

AL 7 6 

005368 


0441 

AL 7 6 

EQU X ' 0 4 41 

• 

005369 



* 

ST 

59 

005370 

OF FI 

4651 




005373 



★ 

LD 


005374 

0 F F 2 

3B10 




005375 



★ 

SEND 

0 

005378 



* 

LD 

59 

005379 

0 F F 3 

6050 




005382 



★ 

DEC 


005383 

0FF4 

3B05 




005384 



★ 

8 Z T 

AL 7 7 

005387 

0 F F 5 

E2 06 




005388 



* 

BART 

AL 7 6 

005391 

0FF6 

E5F6 




005392 



★ 

WAIT 


005393 



★ 

B 

Tkl V 

005394 

0 F F 7 

01 EO 




005397 



* 

LOC 

AL 7 7 

005398 


04 4 F 

AL 7 7 

EQU X * 0 4 4 F * 

005399 



★ 

LD 

= X • FF 

005400 

0 F F 8 

0590 




005403 



★ 

ST 

60 

005404 

0FF9 

FF 51 




005407 



★ 

LOC 

TRC V 

005408 


04 53 

TRC V 

EQU X ' 0 4 53‘ 

005409 



★ 

LD 

20 

005410 

OFFA 

3C 50 




005413 



★ 

AND 

= X 4 FC 

005414 

OFFB 

1493 




00541 7 



★ 

OUT 

2 

005420 

OFFC 

FC 3? 




005421 



★ 

B 

ALD1 

005424 

OF FD 

EO 29 




005425 



★ 

LOC 

ORUD 

005426 


04 5A 

ORUD 

EQU X *0 4 5A’ 

005427 



★ 

C 

= X * F 4 

005430 

OFFE 

92 GF 




005431 



* 

BEF 

OVR 

005434 

OFFF 

FI OF 




005435 



* 

LD 

20 

005438 

1000 

5014 




005439 



* 

AND 

ii 

X 

m 

005442 

1001 

93 FE 




005443 



★ 

ST 

20 

005446 

1002 

51 14 




005447 



* 

OUT 

2 


TURN OFF XMIT AND RECV. 


TURN OFF XMIT 
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0100 


005450 

005451 

1003 

3201 

005452 

005453 

005456 

1004 

1060 

005457 

005458 

005459 

1005 

0201 

005460 



005463 

1006 

E017 

005464 

005465 

005466 


04 6C 

005467 

005468 

005471 

1007 

1060 

005472 

005475 

1008 

£5 FO 

005476 

005479 

1009 

904A 

005480 

005481 


04 72 

005482 

005485 

1 00 A 

51 IE 

005486 

005489 

1 OOB 

F 5 08 

005490 

005491 

005494 

100C 

10 60 

005495 

005498 

1000 

50 1 E 

005499 

005502 

1 OOE 

E 2 04 

005503 

005504 

005505 


04 70 

005506 

005507 

1 00 F 

05 EO 

005510 

005511 


04 7F 

005512 
005515 

1010 

F425 

005516 

005519 

101 1 

51 3C 

005520 

005521 

005522 


0482 

005523 

005526 

1012 

5014 


★ 

WAIT 


★ 

LD 


★ 

SENO 

0 

* 

GN8 


★ 

WAIT 


★ 

B 

AL 0 1 

★ 



* 

LOC 

OVR 

OVR EQU 

X * 04 6 C * 


* 

LD 


* 

SENO 

0 

★ 

BART 

OVR 

* 

LO 

= 74 

* 

LOC 

CNT 

C NT EQU 

X * 04 7 2 * 


★ 

ST 

30 

★ 

BARF 

ROTR 

* 

LO 


★ 

SENO 

0 

★ 

LD 

30 

★ 

8 Z T 

OVCK 

*■ 

DEC 


★ 

LOC 

ROTR 

ROTR EQU X * 0 4 70 * 

* 

B 

CNT 

★ 

LOC 

OVCK 

OVCK EQU X * 0 4 7 F 


★ 

IN 

5 

★ 

ST 

60 

* 



* 

LOC 

ALD 1 

AL01 EQU X 1 04 82 1 

* 

LD 

20 
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005527 



* 

AND 

II 

X 

*n 

m 


005530 

1013 

93 FE 





005531 



★ 

ST 

20 


005 5 34 

101 A 

51 1A 





005535 



* 

OUT 

2 


005538 



* 

GN 8 



005539 

1015 

3202 





005 5 AO 



* 

LOC 

TAMPA 


005 5 A1 


OA 8 A 

TAMPA 

EQU X* 

0 A8A * 


0055A2 



* 

WAIT 



005 5A 3 



★ 

B 

TAMPA 


0055AA 

1016 

01 EO 





005 5A 7 



★ 

NOP 



0055A8 

1017 

F E 00 





0055A9 



★ 




005550 



★ 

CHANNEL PROGRAM 

FOR STOP I/0(BR0ADBAND RECV.) 

005551 



★ 




005552 



★ 

ORG 

X*200' 


005553 


1018 

CHLP7 

EQU 

$ 


005 55A 



* 

" LD 

2A 

GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 

005557 

1018 

5018 





005558 



* 

OUT 

A 

OUTPUT IT 

005561 



★ 

LD 

20 


005562 

1019 

3A 50 

• 




005565 



* 

OUT 

2 


005568 

1 01 A 

1A 32 





005569 



* 

WAIT 



005570 



* 

LOC 

SINKl 


005 5.71 


0207 

SINKl 

EQU X* 

0 207* 


005572 



* 

RECV 

0 

INPUT 1ST SYNC. 

005575 

1 01B 

01 AO 





005576 



★ 

WAIT 



005577 



■k 

RECV 

0 

INPUT 2ND SYNC. 

005580 

1 0 1 c 

01 AO 





005581 



* 

C 

2 A 


005 58A 

101 D 

5218 





005585 



* 

BET 

NSYKl 


005588 

1 0 1 E 

El 08 





005589 



★ 

LD 

20 


005592 

101 F 

50 1A 





005593 



* 

AND 

=X • FD* 


005596 

1020 

93 FD 





005597 



★ 

OUT 

2 


005600 



★ 

LD 

20 


005601 

1021 

32 50 





00560A 



* 

OUT 

2 


005607 

1022 

1 A32 





005608 



* 

8 

SINK1 


005611 

1023 

EO FO 
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005612 



★ 

LOC 

NSYK1 

005613 


02 18 

NSYK1 

EQU X 4 0218* 

005614 



* 

WAIT 


005615 



* 

RE C V 

0 

005618 

1024 

01 AO 




005619 



* 

LOC 

LKB 1 

005620 


02 1A 

LKB 1 

EQU X *021 A* 

005621 



★ 

WAIT 


005622 



* 

R E CV 

0 

005625 

1025 

01 AO 




005626 



* 

C 

= X*D8 * 

005629 

1026 

92 DB 




005630 



★ 

BEF 

LKB 1 

005633 

1027 

FI FB 




005634 



★ 

WAIT 


005635 



★ 

LOC 

T2 5 A 

005636 


0221 

T 2 5 A 

EQU X ' 02 21 

t 

005637 



* 

RE C V 

0 

005640 

1028 

01 AO 




005641 



* 

ST 


005642 



* 

BLCT 

KER 

005643 

1029 

11 £3 




005646 



* 

BART 

T25A 

005647 

1 02 A 

06E5 




005650 



★ 

WAIT 


005651 

1029 

FB 01 




005652 



★ 

B 

T2 5 A 

005655 

102C 

E0F8 




005656 



★ 

LOC 

KER 

005657 


02 2A 

KER EQU X * 02 2 A* 


005658 



* 

LD 

= 0 

005661 

1 02 D 

9000 




005662 



* 

OUT 

2 

005665 



* 

GNB 


005666 

102E 

3202 




005667 



★ 

WAIT 


005668 



★ 

B 

S IN K1 

005669 

1 0 2 F 

01 EO 




005672 



★ 

NOP 


005673 

1030 

0700 




005674 



* 



005675 



* 



005676 



* 

CHANNEL PROGRAM FOR STOP I/O (BROADBAND XMIT) 

005677 



★ 



005678 



* 

ORG 

X * 4 0 0 * 

005679 


1031 

CHLP7A EQU 3 


005680 



★ 

LD 

2 GET LINE CONFIGURATION 

005683 

1 031 

5002 




005684 



* 

OUT 

6 OUTPUT IT 


c 
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005687 



★ 

LO 

= X' AA ' 


005688 

1032 

36 90 





005691 



■k 

OUT 

4 


005694 

1033 

AA 34 





005695 



* 

WAIT 



005696 



* 

LD 

= 6 


005697 

1 034 

01 90 





005700 



* 

LOC 

XMWW 


005701 


04 09 

XMWW 

EQU X ' 0 4 09 * 


005702 



* 

ST 

63 


005703 

1035 

0651 



' 


005 706 



* 

LD 

24 

LOAD SYNC. CHAR 

005707 

1036 

3 F 50 





005 710 



★ 

SEND 

0 

SEND IT 

005 71 3 

1 037 

1860 





005714 



* 

LD 

63 

DO SIX TIMES 

00571 7 

1038 

50 3F 





005718 



* 

DEC 



005719 



* 

BZT 

SDWW 


005720 

1039 

05E2 





005 723 



* 

WAIT 



005724 

1 0 3 A 

0401 





005725 



* 

B 

XMWW 


005728 

103B 

E0F4 





005729 



★ 

LOC 

SDWW 


005730 


04 16 

SDWW 

EQU X*0416' 


005731 



★ 

WAIT 



005732 



★ 

LD 

= X * OB' 


005733 

1 0 3 C 

01 90 





005736 



* 

SEND 

0 


005739 

1 03 D 

OB 60 





005740 



★ 

WAIT 



005741 



★ 

LOC 

T25B 


005742 


04 18 

T 2 5 8 

EQU X * 0 4 1 8 

l* 


005743 



* 

LD 



005744 

1 03E 

01 10 





005745 



* 

SEND 

0 


005748 



* 

BART 

T25B 


005749 

1 03 F 

60E5 





005752 



★ 

WAIT 



005753 

1040 

F D 01 





005754 



★ 

LOC 

HANG 


005 755 


04 20 

HANG 

EQU X * 0 4 20 * 


005756 



* 

LD 



005757 



★ 

SEND 

0 


005760 

1041 

1060 





005761 



★ 

BLCT 

ERR 


005764 

1 042 

E 3 04 





005765 



* 

WAIT 
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005766 



* 

B 

HANG 



A 

005767 

1043 

01 E0 






fff 

005770 



* 

LOC 

ERR 




005771 


0427 

ERR 

EQ U X * 04 2 7 * 





005772 



★ 

WAIT 





005773 

1044 

F A 01 







005774 



★ 

LD 

20 




005777 

1045 

5014 







005778 



★ 

AND 

= X* F£* 




005781 

1046 

9 3 F E 







005782 



★ 

OUT 

2 




005785 



★ 

GNB 





005786 

1 047 

3202 







005787 



★ 

WAIT 





005788 



* 

B 

T25B 




005789 

1048 

01 EO 







005792 



★ 

NOP 





005793 

1049 

EBOO 







005794 



★ 






005795 



* 

CHANNEL PROGRAM FOR 

CHARACTER SIZE AND 


005796 



★ 

CRC 

V PARITY TESTS 

(BROADBAND RECV,) 


005797 



★ 






005798 



★ 

ORG 

X* 200* 




005799 


1 0 4 A 

CHLP8 EQU 5 





005800 



•k 

LO 

24 




005803 

1 04 A 

5018 







005804 



★ 

OUT 

4 

OUTPUT 

SYNC* CHARACTER 


005807 



★ 

LD 

20 




005808 

1048 

34 50 







00581 1 



★ 

OUT 

2 

OUTPUT 

LINE CONTROL 


005814 

104C 

1432 







005815 



* 

WAIT 





005816 



* 

LOC 

SYCH 

GET IN 

RECV, IN SYNC. 


005817 


0207 

SYCH 

EQU X * 0 2 07 * 




005818 



★ 

RECV 

0 




005821 

1040 

01 AO 







005822 



★ 

BART 

SC Y 2 




005825 

1 04 E 

E 5 02 







005826 



★ 

WAIT 





005827 



★ 

LOC 

SCY2 




005828 


02 OB 

SC Y 2 

EQU X ' 0 2 08 * 



f " 

005829 



★ 

RECV 

0 




005832 

1 04 F 

01 AO 







005833 



★ 

C 

28 




005836 

1050 

52 1C 







005837 



★ 

BET 

SYC 




005840 

1051 

El 04 







005841 



★ 

SFS 





005842 



★ 

B 

SYCH 





( 
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005843 

1052 

03 E0 








005846 



* 

LOC 

SYC 





005847 


0213 

S YC 

EQU X * 0213• 






005848 



* 

BART 

SC Y 1 





005849 

1053 

F5E5 








005852 



* 

WAIT 






005 853 

1054 

0201 








005854 



* 

LOC 

SC Y1 





005855 


0216 

SCY1 

EQU X * 0 216' 





005856 



* 

RECV 

0 





005859 



* 

C 

= X'19* 

CHECK FOR 

START 

OF 

MESSAGE SHAR. 

005860 

1055 

AO 92 








005863 



★ 

BE F 

SYC 





005364 

1056 

19 FI 








005867 



★ 

LD 

24 





005868 

1057 

F950 








005871 



★ 

C 

=X* 32* 





005872 

1058 

1892 








005875 



* 

BE T 

C PR T 

IF EQUAL 

GO TO 

CRC 

AND PARITY ROUIINfcS 

005876 

1059 

32 El 








005879 



★ 

LD 

2 

START OF 

CHAR. 

SIZE 

TEST 

005880 

1 0 5 A 

35 50 








005883 



★ 

B2T 

FVBC 

BRANCH TO 

FIVE 

BIT 

CHAR. OUTPUT LOOP 

005884 

1 05B 

02E2 








005887 



* 

C 

=X'40' 





005888 

1 05C 

IE 92 








005891 



* 

BE F 

NFBA 





005892 

1 0 5 D 

40 FI 








005895 



k 

LOC 

SXBC 





005896 


02 29 

SXBC 

EQU X *0229* 





005897 



★ 

BART 

S X B 1 





005898 

1 0 5 E 

0EE5 








005901 



★ 

WAIT 






005902 

1 0 5 F 

0201 








005903 



★ 

LOC 

SXBl 





005904 


022C 

SXB1 

EQU X * 0 2 2C' 





005905 



* 

RECV 

2 





005908 



* 

C 

30 





005909 

1060 

A2 52 








005912 



* 

BET 

SXBC 





005913 

1 061 

1 E El 








005916 



* 

ST 






005917 

1 062 

F 9 1 1 








005918 



* 

BLCT 

EXT 





005921 

1063 

E 3 47 








005922 



* 

B 

SXBC 





005925 

1 064 

EO F4 








005926 



k 

LOC 

NFBA 





005927 


02 36 

NFBA 

EQU X 4 0 2 36* 
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005928 



★ 

BART 

NF V8 

005931 

1 065 

E 5 02 




005932 



* 

WAIT 


005933 



* 

LOC, 

NFV8 

005 93A 


0239 

NFV8 

EQU X * 0 2 39 

»* 

005935 



* 

RECV 

2 

005938 

1066 

01 A2 




005939 



* 

ST 


005940 



★ 

8LCT 

EXT 

005941 

1067 

1 1 E3 




005944 



* 

8 

NFBA 

005945 

1 068 

3EE0 




005948 



★ 

LOC 

FVBY 

005949 


023F 

FVBY 

EQU X * 0 2 3 F 

• 

005950 



★ 

BART 

FVBC 

005951 

1069 

F8E5 




005954 



★ 

WAIT 


005955 

1 06 A 

0201 




005956 



* 

LOC 

FVBC 

005957 


0242 

FVBC 

EQU X ' 0 2 4 2 * 

005958 



* 

RECV 

0 

005961 



* 

C 

30 

005962 

1 068 

AO 52 




005965 



* 

BET 

FVBY 

005966 

1 06C 

1 E El 




005969 



* 

ST 


005970 

1 0 6 D 

F 9 11 




005971 



* 

C 

*X • 1 E 

005974 

1 06E 

92 IE 




005975 



★ 

BET 

TKF 

005978 

1 0 6 F 

El 05 




005979 



* 

LOC 

TKFN 

005980 


024C 

TKFN 

EQU X * 0 2 4 C 

t 

005981 



* 

BLCT 

EXT 

005984 

1070 

£3 2D 




005985 



* 

B 

FVBY 

005988 

1071 

EOFO 




005989 



* 

LOC 

TKF 

005990 


02 50 

TKF 1 

EQU X * 02 50 * 


005991 



★ 

LD 

30 

005994 

1072 

50 IE 




005995 



* 

ST 


005996 



* 

8 

TKFN 

005997 

1073 

11 EO 




006000 



* 

LOC 

CPRT 

006001 


02 55 

CPRT 

EQU X * 0 2 5 5 

« 

006002 



* 

LD 

23 

006003 

1074 

F8 50 




006006 



* 

C 

= 1 
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006007 

1075 

1792 

00601 0 
006011 

1 076 

01 El 

006014 

006015 

1077 

0E 92 

006018 

006019 

1 078 

FO El 

006022 

006023 


02 5 F 

006024 

006025 

1079 

1 3 E 5 

006028 

006029 

1 07 A 

02 Cl 

006030 

006031 


0262 

006032 

006035 

006036 

1070 

A3 11 

006037 

006040 

1 07C 

E 3 1 5 

006041 

006044 

1 0 7 D 

E0F8 

006045 

006046 


02 68 

006047 

006050 

1 07E 

E 5 02 

006051 

006052 

006053 


02 6B 

006054 

006057 

1 0 7 F 

01 A1 

006058 

006059 

006060 

1080 

11 E3 

006063 

006064 

1 081 

OC EO 

006067 

006068 


02 71 

006069 

006070 

1082 

F 8 E 5 

006073 

006074 

1083 

0201 

006075 

006076 


02 74 

006077 

006080 

006081 

1084 

A 2 11 

006082 

006085 

1 085 

E303 


* 

BET 

RE 1 A 

* 

C 

= X ' FO 

★ 

BET 

R E 2 A 

* 

LOC 

R E 3 A 

R E 3 A 

EQU X *02 5F 

t 

* 

BART 

R E 3 

* 

WAIT 


★ 

LOC 

R E 3 

R E 3 

EQU X • 02 6 2 * 


★ 

RECV 

3 

★ 

ST 


* 

BLCT 

EXT 

★ 

B 

RE 3 A 

★ 

LOC 

RE 1 A 

R E 1 A 

EQU X '0268* 

* 

BART 

RE 1 

* 

WAIT 


★ 

LOC 

R E 1 

RE 1 

EQU X'02 6B * 


★ 

RECV 

1 

* 

ST 


* 

BLCT 

EXT 

■k 

B 

RE 1 A 

* 

LOC 

RE2 A 

R E 2 A 

EQU X'0271 

1 

* 

BART 

RE 2 

★ 

WAIT 


★ 

LOC 

RE 2 

R E 2 

EQU X * 02 74 * 


★ 

RECV 

2 

* 

ST 


★ 

BLCT 

EXT 
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006086 



* 

B 

RE 2 A 

006089 

1086 

E0F8 




006090 



* 

LOC 

EXT 

006091 


02 7A 

EXT EQU 

X * 0 2 7 A 1 


006092 



* 

LO 

=0 

006095 

1 087 

9000 




006096 




OUT 

2 

006099 



★ 

GN 8 


006100 

1088 

3202 




006101 



* 

WAIT 


006102 



* 

NOP 


006103 

1089 

01 00 




006104 



* 



006105 



★ 

CHANNEL PROGRAM FOR CHARACTER SIZE AND 

006106 



* 

C RC 

/PARITY TESTS (BROADBAND XMIT) 

006107 



★ 



006108 



★ 

ORG 

X * 4 00 * 

006109 


108A 

CHLP8A 

EQU $ 


006110 



* 

LO 

2 GET LINE CONFIGURATION 

0061 13 

108A , 

5002 




006114 



* 

OUT 

6 OUTPUT IT 

006117 



★ 

L 0 

= X' FF • 

006118 

1 088 

3690 




006121 



* 

OUT 

4 

006124 

1 0 8C 

FF 34 




006125 



★ 

ST 

28 

006128 

1080 

51 1C 




006129 



* 

WAIT 


006130 



* 

LO 

24 

006131 

108E 

01 50 




006134 



★ 

C 

=X•32* 

006135 

1 0 8 F 

1892 




006133 



* 

BET 

Z 4 8 

006139 

1090 

32 El 




006142 



* 

L 0 

= X * IF • 

006143 

1 091 

32 90 




006146 



* 

ST 

27 

006147 

1092 

1 F 51 




006150 



* 

ST 

28 

006151 

1093 

1 B 51 




006154 



★ 

LO 

2 

006155 

1094 

1C 50 




006158 



* 

BZT 

Z47 

006159 

1095 

02 E 2 




006162 



★ 

C 

=X•40' 

006163 

1096 

2292 




006166 



* 

BEF 

N61 1 

006167 

1 097 

4 0 F 1 




006170 



★ 

L D 

= X * 3 F • 
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006171 

1098 

0 A 90 




006174 



* 

ST 

28 

006175 

1 099 

3 F 51 




006178 



* 

SR 


006179 

1 09 A 

1 C 07 




006180 



★ 

ST 

27 

006183 

10 90 

51 IB 




006184 



★ 

B 

Z47 

006187 

109C 

EO 1 5 




006188 



★ 

LOC 

N61 1 

006189 


0426 

N61 1 

EQU X * 0 4 26 1 

006190 



* 

C 

o 

oo 

X 

n 

006193 

1090 

92 80 




006194 



* 

BEF 

N71 1 

006197 

109E 

FI OA 




006198 



* 

LO 

=X 4 7F 

006201 

1 0 9 F 

907F 




006202 



★ 

ST 

28 

006205 

1 0A0 

51 1 C 




006206 



★ 

SR 


006207 



★ 

ST 

27 

006208 

1 0 A1 

0751 




006211 



* 

B 

Z47 

006212 

1 0 A 2 

1 B EO 




006215 



★ 

LOC 

N71 1 

006216 


04 33 

N71 1 

EQU X *0433 

; « 

006217 



Hr 

LO 

=X 4 FF 

006218 

1 0 A 3 

0890 




006221 



* 

ST 

28 

006222 

1 0A4 

FF 51 




006225 



★ 

SR 


006226 

1 0 A 5 

1C 07 




006227 



★ 

ST 

27 

006230 

10A6 

51 18 




006231 



* 

LOC 

Z47 

006232 


04 3A 

Z47 

EQU X 4 043 A * 


006233 



* 

LO 

28 

006236 

1 0 A 7 

501 C 




006237 



★ 

AND 

=X 4 F F 

006240 

1 0 A 8 

93 FF 




006241 



★ 

ST 

30 

006244 

1 0A9 

51 IE 




006245 



* 

LOC 

Z48 

006246 


0440 

Z 4 8 

EQU X 4 04 4 0 4 


006247 



* 

LO 

28 

006250 

1 OAA 

50 1 C 




006251 



* 

AND 

24 

006254 

1 OAB 

5318 




006255 



* 

ST 

28 
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006259 

1 0 AC 

51 1C 
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006 2 64 
006265 


0AA8 

006268 

006269 

1 0 AE 

51 3F 

006272 

006273 

006276 

1 0 A F 

5018 

006277 

006280 

1080 

6050 

006281 

006282 

1 OBI 

3F05 

006285 

006286 

10B2 

E 2 0 3 

006289 

006290 

10B3 

E5F5 

006291 

006292 


0A5A 

006295 

006296 

006299 

1 OBA 

9019 

006300 

006303 

1085 

60 50 

006304 
006307 

10B6 

1892 

006308 
006311 

1087 

32 El 

006312 

10B8 

1850 

006315 



006316 

006319 

1089 

02 E2 

006320 

006321 


OA 61 

006322 

006323 

1 OBA 

OC 10 

006326 

006327 

006330 

1 088 

5318 

006331 

00633A 

1 OBC 

62E3 

006335 

006338 

1 OBD 

36 E5 

006339 
006 3AO 

1 OBE 

F901 

006 3A 3 
0063AA 

1 OBF 

EO F6 


★ 

LD 

= 6 

* 

LOC 

Z 2 Z 

Z2Z EQU 

X 4 OA A 8 * 


* 

ST 

63 

* 

LD 

2A 

* 

SEND 

0 

* 

LD 

63 

* 

DEC 


★ 

BZT 

Z 3 Z 

★ 

BART 

Z 2 Z 

* 

LOC 

Z 3 Z 

Z 3Z EQU 

X * OA 5 A 4 


* 

LD 

= X* 19 

★ 

SEND 

0 

* 

LD 

2 A 

★ 

C 

= X 4 32 

* 

BET 

CPRTX 

★ 

LD 

2 

* 

BZ T 

ZXZ 1 

* 

LOC 

XPYZ 

XPYZ EQU X * 0 A61 

« 

★ 

LD 


* 

AND 

27 

* 

SEND 

2 

* 

BLCT 

ZEXT 

* 

BART 

XPYZ 

★ 

WAIT 


★ 

B 

XPYZ 

* 

LOC 

ZXZ 1 



/. 
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006 3 A 5 


046C 

Z X Z 1 

EQU X'046C * 

006 346 



★ 

LD 


006347 



* 

AND 

27 

006348 

10C0 

1053 




006351 



* 

SEND 

0 

006354 

10C1 

I860 




006355 



* 

BLCT 

ZEXT 

006358 

1 0 C 2 

E 3 28 




006359 



* 

BART 

ZXZ 1 

006362 

1 0C 3 

E5 F9 




006363 



* 

WAIT 


006364 



★ 

B 

ZXZ 1 

006365 

1 0 C 4 

01 EO 




006368 



* 

LOC 

CPRTX 

006369 


0477 

CPRTX 

EQU X' 

04 77* 

006370 



★ 

LD 

23 

006371 

1 0C5 

F6 50 




006374 



★ 

C 

= 1 

006375 

1 0 C 6 

1792 




006378 



★ 

BET 

BBC R 

006379 

1 OC 7 

01 El 




006382 



* 

C 

ii 

X 

O 

006383 

1 0C8 

OE 92 




006386 
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BET 

BBPR 

006387 

1 OC 9 

F0E1 




006390 



★ 

LOC 

BBPCR 

006391 


04 81 

BBPCR 

EQU X* 

0481 • 

006392 



★ 

LD 


006393 

1 OCA 

1310 




006394 



★ 

SEND 

3 

006397 



* 

BLCT 

ZEXT 

006 398' 

1 0C9 

63E3 




006401 



* 

BART 

BBPCR 

006402 

10CC 

18E5 




006405 



★ 

WAIT 


006406 

1 0 C D 

FB 01 




006407 



* 

B 

BBPCR 

006 A 1 0 

1 0 C E 

E0F8 




006411 



★ 

LOC 

BBCR 

006412 


04 8A 

8BCR 

EQU X * 0 4 8A' 

006413 



★ 

LD 


006414 



* 

SEND 

1 

006417 

1 0 C F 

1061 




006418 



* 

BLCT 

ZEXT 

006421 

1 ODO 

E3 OF 




006422 



★ 

BART 

BBCR 

006425 

1 0D1 

E5 FB 




006426 



★ 

WAIT 


006427 



★ 

B 

BBCR 
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1002 

01 EO 






006431 



* 

LOC 

BBPR 



006432 


04 93 

BBPR 

EQU X *0493* 


006433 



★ 

LO 




006434 

10D3 

F810 






006435 



* 

SEND 

2 



006438 



★ 

BLCT 

ZEXT 



006439 

10D4 

62E3 






006442 



★ 

BART 

BBPR 



006443 

1005 

06E5 






006446 



★ 

WAIT 




006447 

1006 

FB 01 



* 



006448 



★ 

B 

BBPR 



006451 

1007 

EO F8 






006452 



* 

LOC 

ZEXT' 



006453 


04 9C 

ZEXT 

EQU X * 04 9C * 



006454 



★ 

LO 

= 0 



006457 

1008 

9000 






006458 



* 

SEND 

0 



006461 



★ 

SEND 

0 



006464 

1 009 

6060 






006465 



* 

LD 

20 



006468 

1 ODA 

5014 






006469 



* 

AND 

-X * FE * 



006472 

1008 

93 FE 






006473 



★ 

OUT 

2 



006476 



★ 

GNB 




006477 

1 0 DC 

32 02 






006478 



★ 

WAIT 




006479 



★ 

NOP 




006480 

1 000 

01 00 






006481 



★ 

CHANNEL PROGRAM FOR 

MARK & SPACE (REC) 


006482 



* 





006483 



* 

ORG 

X ' 2 00 * 



006484 


1 0 DE 

CHLP9 

EQU 

$ 



006485 



★ 

LO 

2 

GET LINE CONFIG. 


006488 

1 ODE 

5002 






006489 



* 

OUT 

6 

OUTPUT IT 


006492 



★ 

LO 

= X • D* 

LOAD LINE SPEED 


006493 

1 0 D F 

36 90 





A " i\ 

006496 



* 

OUT 

4 

OUTPUT IT 


006499 

1 0 EO 

0034 





M.. J 

006500 



★ 

LD 

20 

GET LINE CONTROL 


006503 

10E1 

5014 






006504 



* 

OUT 

2 



006507 



* 

WAIT 




006508 

10E2 

3201 






006509 



* 

RECV 

0 



006512 



* 

ST 
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006513 

1 0E 3 

AO 11 



• 

006 5 1 A 



★ 

WAIT 


006515 



* 

LOC 

RAN 

006516 


02 OD 

RAN 

EQU X * 02 0 0 

« 

006517 



★ 

RECV 

0 

006520 

1 0E4 

01 AO 




006521 



★ 

ST 


006522 



★ 

BZF 

BINTA 

006523 

1 OE 5 

11 F 2 




006526 



* 

IN 

5 

006529 

10E6 

0 A 2 5 




006530 



★ 

AND 

= 1 

006533 

1 OE 7 

9301 




006534 



* 

BZT 

BINTA 

006537 

1 OE 8 

E 2 05 




006538 



* 

LD 

= X 4 FE 4 

006541 

10E9 

90 FE 




006542 



•k 

ST 

60 

006545 

1 OE A 

51 3C 




006546 



★ 

LOC 

BINTA 

006547 


02 1A 

BINTA 'EQU X* 021 A 4 

006548 



* 

8LCT 

TONI 

006551 

1 OE 8 

E 3 04 




006552 



* 

WAIT 


006553 



★ 

B 

RAN 

006554 

1 OEC 

01 £0 




006557 



★ 

LOC 

TONI 

006558 


02 IF 

TON I 

EQU X 4 0 2 1 F* 

006559 



* 

LD 

= 0 

006560 

1 OE 0 

£F 90 




006563 



★ 

OUT 

2 

006 566 

1 OE E 

0032 




006567 



* 

GNB 


006568 



* 

WAIT 


006569 

1 OE F 

0201 




006570 



* 

NOP 


006571 



★ 



006572 



*• 

CHANNEL PROGRAM FOR MARK & SPACE <XMIT) 

006573 



* 



006574 



* 

ORG 

X 4 400* 

006575 

1 0 F 0 

0000 




006576 


1 0 FI 

CHLP9A EQU 

$ 

006577 



* 

LOC 

CL R K 

006578 


0400 

CL RK 

EQU X * 0 4 00 4 

006579 



* 

L D ✓ 

GET CHARACTER TO SEND OUT 

006580 



* 

C 

=5 CHECK TO SET MARK AND SPACE CONDITION 

006581 

1 0 F 1 

1092 




006584 



* 

BEF 

DENW 

006585 

1 0 F 2 

05 FI 
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006588 



* 

LD 

20 

006589 

1 0F3 

OA 50 




006592 



* 

OR 

26 

006593 

1 0 F 4 

14 54 




006596 



* 

ST 

20 

006597 

1 0 F 5 

1 A51 




006600 



* 

OUT 

2 

006603 

10F6 

1432 




006604 



★ 

LD 

= 5 

006607 

1 OF 7 

9005 




006608 



* 

LOC 

DENW 

006609 


04 OE 

DEN W 

EQU X'0 4 OE * 

006610 



* 

C 

= 7 

006613 

1 OF 8 

9207 




006614 



* 

BEF 

BAMB 

006617 

10F9 

FI 19 




006618 



* 

LD 

20 

006621 

1 0 F A 

5014 




006622 



★ 

XOR 

26 

006625 

1 0 F B 

5 5 1 A 




006626 



* 

ST 

20 

006629 

1 OFC 

51 14 




006630 



* 

OUT 

2 

006633 



* 

LD 

26 

006634 

1 OFD 

3250 




006637 



★ 

C 

o 

X 

II 

006638 

1 0 F E 

1 A 92 




006641 



* 

BEF 

KUNTA 

006642 

1 0 F F 

1 0 FI 




006645 



* 

IN 

5 

006648 

1100 

OA 25 




006649 



* 

AND 

= 1 

006652 

1 101 

9301 




006653 



★ 

BZT 

KUNTA 

006656 

1102 

E 2 05 




006657 



* 

LD 

= X * EE 

006660 

1103 

90EE 




006661 



★ 

ST 

61 

006664 

1 1 04 

51 3D 




006665 



* 

LOC 

KUNTA 

006666 


0428 

KUNTA 

EQU X* 

0428* 

006667 



* 

LD 

= 7 

006670 

1105 

9007 




006671 



* 

LOC 

BAMB 

006672 


04 2 A 

BAMB 

EQU X * 0 4 2 A * 

006673 



* 

SEND 

0 

006676 



* 

BLCT 

RAY 

006677 

1106 

60 £3 




006680 



★ 

WAIT 



SET MARK OR SPACE CONDITION 


CHECK TO RESET MARK AND SPACE CONDITION 

RESET MARK OR SPACE CONDITION 


IF SPACE CONDITION CHECK FOR FRAMING ERROR 

MASK OTHER BITS OUT 
BRANCH ON FRAMING ERROR SET 

4 
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006681 

1107 

0401 






006682 



* 

B 

CL R K 



006685 

1108 

E0D1 






006686 



* 

LOC 

RAY 



006687 


04 30 

RAY EQU X 4 04 30 

1 



006688 



* 

WAIT 




006689 



* 

LD 

= X * FF* 



006690 

1109 

01 90 






006693 



* 

S END 

0 



006696 

1 1 0A 

FF 60 






006697 



* 

GNB 




006698 



* 

LO 

20 



006699 

1 1 OB 

02 50 






006702 



* 

AND 

-X*FE* 



006703 

110C 

1493 






006706 



* 

ST 

20 



006707 

1 1 00 

F E 51 






006710 



★ 

WAIT 




00671 1 

1106 

1401 






006712 



★ 

NOP 




00671 3 


11 OF 

CHLP10 

EQU 

$ 



006714 



★ 





00671 5 



★ 

ECHO BACK CCP &LCT TABLE 



00671 6 



★ 





00671 7 


1 1 OF 

LOP C C P 

EQU 

$ 



006718 



k 

ORG 

X* 200* 



006719 

1 10F 

0000 






006720 



k 





006721 



k 





006722 



★ 

RECEIVE 

CCP 



006723 



* 





006724 



k 





006725 



k 

LO 

24 



006728 

1110 

5018 






006729 



k 

OUT 

4 

OUTPUT 

SYNC CHARACTER 

006732 



k 

LD 

2 



006733 

1111 

34 50 






006736 



k 

OUT 

6 

OUTPUT 

CHARACTER LENGTH 

006739 

1112 

02 36 






006740 



k 

L 0 

= 3 

SET RECEIVER & XMITTER ON 

006743 

1113 

9003 






006744 



k 

ST 

20 



006747 

1114 

5114 






006748 



k 

OUT 

2 



006751 



k 

LOC 

LOPWT 



006752 


02 0B 

LOP W T 

EQU X* 020B* 



006753 



* 

WAIT 




006754 

1115 

3201 






006755 



* 

LO 

17 
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006758 

006759 

1116 

5011 

* 

AND 

=x 1 10* 


006762 

1117 

9310 





006763 

006766 

1118 

F206 

* 

BZF 

LOPDSS 

BRANCH IF DATA SET STATUS CHANGE 

006767 



* 

IN 

1 

GET & STORE RECEIVED CHARACTER 

006770 



★ 

ST 

24 


006771 

006774 

1119 

21 51 

★ 

8 

LOP WT 


006775 

006778 

1 1 1 A 

1 8 £0 

★ 

LOC 

LOPDSS 


006779 


0217 

LOPDSS 

EQU X ' 

0217* 


006780 



★ 

LD 

=0 

DATA SET STATUS CHANGE PROCESSING 

006781 

006784 

1 1 IB 

F 5 90 

★ 

ST 

17 

CLEAR DATA SET STATUS CHANGE FLAG 

006785 

006788 

1 1 1 C 

0051 

* 

LD 

= X 1 3 A 1 

SET UP SYNC CHARACTER FOR XMIT 

006789 

006792 

1 1 1 D 

1 1 90 

* 

ST 

24 


006793 

006796 

1 1 IE 

3A51 

* 

SFS 

RESYNC 

RECEIVER 

006797 

006798 

1 1 1 F 

1803 

* 

LD 

*3 

ECHO BACK DATA SET STATUS 

006801 

006802 

1120 

9003 

* 

ST 

25 


006805 

006806 

1121 

51 19 

★ 

LD 

14 


006809 

006810 

1122 

5 00E 

* 

AND 

*X*80* 


006813 

006814 

1123 

9380 

■k 

OP 

25 

SET UP DATA TERMINAL READY 

006817 

006818 

1124 

5419 

* 

ST 

25 


006821 

006822 

1125 

51 19 

* 

LD 

1 4 


006825 

006826 

1126 

5 0 OE. 

★ 

AND 

=X*20' 


006829 

006830 

1127 

93 20 

* 

BZT 

LOPDSO 


006833 

006834 

1128 

E207 

★ 

LD 

=X*40* 

• 

006837 

006838 

1129 

9040 

* 

OR 

25 

SET REQUEST TO SEND 

006841 

006842 

1 1 2 A 

54 19 

* 

ST 

25 


006845 

006846 

1 1 2B 

51 19 

* 

LOC 

LOPDSO 


006847 


02 38 

LOPDSO 

E Q U X • 

0238* 


006848 



* 

LD 

25 

OUTPUT NEW DATA SET STATUS 
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006851 

006852 

11 2 C 

5019 

★ 

ST 

20 

006855 

006856 

11 2D 

51 14 

* 

OUT 

2 

006859 

006860 

11 2 E 

32 EO 

★ 

B 

LOPWT 

006863 



* 



006864 



★ 



006865 



* 

XMIT CCP 

006866 



★ 



006867 



* 



006868 



* 

LOC 

LOPXMT 

006869 


02 3F 

LOPXMT 

EQU X ' 

1 023F * 

006870 

006871 

1 12F 

C D 50 

★ 

LD 

24 

006874 

006877 

1130 

1831 

* 

OUT 

1 

006878 



★ 

WAIT 


006879 

006880 

1131 

01 EO 

* 

B 

LOPXMT 

006885 

1132 

FBOO 




006886 


11 33 

LOPCCE 

EQU 

$ 

006887 

1133 

0048 

LOPSZE 

DC 

(LOPCCE 


GET CHARACTER TO SEND 


CCP SIZE (BYTES) 
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006888 



/ 




006889 



* 




006890 



* 




006891 



* 

LCT 

TABLE 


006892 



* 




006893 



* 




006894 

1134 

0206 

LOPLCT 

DC 

• X * 2 0 6 * 

RECEIVE CCP START ADDRESS 

006895 

1135 

0226 


DC 

AND<LOPXMT,Z*FF00*)+X , 0026' XMIT CCP START ADDRESS 

006896 

1136 

3F27 





006897 

1137 

C002 


DC 

Z* C002 * 

8 BIT CHARACTERS 

006898 

1138 

C022 


DC 

Z * C 0 2 2 * 


006899 

1139 

0008 


DC 

Z'DQ08' 

START UP RECEIVE CCP ON DATA SET STATUS 

006900 

11 3 A 

A00F 


DC 

Z * A OOF * 

DSS MASK 

006901 

1138 

3A18 


DC 

Z * 3 A18 * 

SYNC CHARACTER (LCT 24) 

006902 

113C 

00 00 


DC 

0 

END OF TABLE 

006903 



* sss 

= = = = 


H 

it 

il 

ii 

ii 

ii 

ii 

II 

ii 

ii 

ll 

ii 

M 

il 

ii 

ii 

ii 

ii 

ii 

i) 

it 

ti 

ii 

ii 

ii 

ii 

ii 

il 

ii 

it 

ii 

•i 

ii 

ii 

il 

ii 

ii 

ii 

il 

ii 

II 

il 

M 

ii 

ii 

it 

M 

ii 

ii 

ii 

ii 

ii 

006904 



★ 



I/O FUNCTION CODES 

006905 



* 




006906 

1 1 3D 

0001 

FOMC 

DC 

X*1 * 

OUTPUT MLCP CONTROL 

006907 

113E 

0003 

FOIC 

DC 

X * 3 1 

OUTPUT INTERRUPT CONTROL 

006908 

11 3 F 

0005 

FOCC 

DC 

X * 5 * 

OUTPUT CHANNEL CONTROL 

006909 

1 140 

0009 

FOLD 

DC 

X * 9 * 

OUTPUT ADDRESS AND RANGE 

006910 

1141 

0008 

FOBL 

DC 

X' B * 

OUTPUT BYTE INTO LCT 

00691 1 

1142 

000F 

F 0 C 8 

DC 

X ' F * 

OUTPUT CCB CONTROL 

006912 

1143 

OOOC 

FIR 

DC 

X'C • 

INPUT RANGE 

006913 

11 44 

0018 

FIS 

DC 

X* 1 8 * 

INPUT STATUS 

006914 

1145 

00 1 A 

FINS 

DC 

X * 1 A * 

INPUT NEXT STATUS 

006915 

1146 

001C 

FIDSS 

DC 

X * 1 c 1 

INPUT DATA SET STATUS 

006916 

1147 

00 IE 

FILS 

DC 

X * 1 E * 

INPUT LCT ATATUS 

006917 

1148 

0026 

FID 

DC 

X 1 2 6 * 

INPUT ID 

006918 

nn a oio 



* 




uuo V 1 y 

006920 



* 



STORAGE CONSTANTS 

006921 



★ 




006922 







006923 







006924 

1149 

0000 

TEST 

be 

0 

TEST COMMAND CODE SAVE AREA 

006925 

1 1 4 A 

0000 

MLXCT 

DC 

0 

MODEM LOOPBACK XMIT BLOCK CTR 

006926 

1 1 48 

0000 

MLECT 

DC 

0 

MODEM LOOPBACK XMIT ERROR CTR 

006927 

1 1 4C 

0000 

COUNT1 

DC 

0 

DATA 8L0CK COUNTER 

006928 



*n 




006929 



*## 




006930 

1 14D 

0000 

ARFG 

DC 

0 

ADAPTER READY TEST FLAG 

006931 

1 14E 

0000 

9YTP 

DC 

0 

BYTE OFFSET FOR VSCALLS 

006932 

1 1 4F 

0000 

CHANL 

DC 

0 


006933 

1150 

0000 

CHSZF6 

DC 

0 

CHARACTER SIZE TEST FLAG 

006934 

1 151 

0000 

CHNZ 

DC 

0 


006935 

1 1 52 

0000 

COUNT 

DC 

0 




\..y 
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c 


006936 

1153 

0000 

CS 

DC 

0 

006937 

1 1 54 

0000 

CSB 

DC 

0 

006938 

1155 

0000 

CRCAC 

DC 

0 

006939 

1 1 56 

0000 

CRC FG 

DC 

0 

006940 

1157 

0000 

D I V 1 

DC 

0 

006941 

1 1 58 

0000 

DI V2 

DC 

0 

006942 

1 1 59 

0000 

DI V 3 

DC 

0 

006943 

11 5 A 

0000 

DIV 4 

DC 

0 

006944 

1158 

00 34 

ERF 

DC 

52 

006945 

1 1 5C 

0000 

FBRG 

DC 

0 

006946 

1 1 5D 

0000 

FWFG 

DC 

0 

006947 

1 1 5E 

0000 

HGSPD 

DC 

0 

006948 

11 5F 

003C 

HRTZ 

DC 

60 

006949 

1160 

0000 

MASK 

DC 

0 

006950 

1161 

0000 

MSB S 

RESV 

2*0 

006951 

1163 

0000 

PAR FG 

DC 

0 

006952 

1 1 64 

0000 

PTTY 

DC 

0 

006953 

1165 

0000 

PSFG 

DC 

0 

006954 

1 1 66 

0000 

RANGE 

DC 

0 

006955 

1 1 67 

0000 

RCRC 

DC 

0 

006956 

1168 

0000 

RLCTAD 

DC 

0 

006957 

1169 

0000 

RLC TRG 

DC 

0 

006958 

1 16A 

0000 

RUN FG 

DC 

0 

006959 

1 1 68 

0000 

TLOC 

DC 

0 

006960 

1 16C 

0000 

TP 1 

DC 

0 

006961 

1 16D 

0000 

TP2 

DC 

0 

006962 

1 16E 

0000 

SBTFG 

DC 

0 

006963 

1 1 6 F 

0000 

SHORT 

DC 

0 

006964 

1 1 70 

0000 

STPFG 

DC 

0 

006965 

1171 

0000 

WD8FG 

DC 

0 

006966 

1172 

0000 

XCRC 

DC 

0 

006967 

1173 

F F FF 

LCTV 

RESV 

3,-1 

006968 

1 1 76 

0000 

ERAR 

RESV 

4,0 

006969 



★ 



006970 

1 1 7 A 


S A V 1 

RESV 

9+ 7* $A F 

006971 

1 1 8A 


S A V 2 

RESV 

9 + 7* SA F 

006972 

1 1 9 A 


S A V 3 

RESV 

9 + 7* $A F 

006973 

1 1 AA 


SAVA 

RESV 

9+7* $A F 

006974 



* 



006975 



★ s s s z s 

ii 

n 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

it 

006976 



★ 



006977 



* 



006978 



* 



006979 

1 1 BA 

21 08 

ASYN 

DC 

X * 2108' 

006980 

1 1 BB 

21 18 

ASYN1 

DC 

X* 2118* 

006981 

1 1 BC 

21 10 

ASYNC 

DC 

X 1 2110* 

006982 

1 1 8D 

21 58 

SYNC 

DC 

X * 2158 4 

006983 

1 1 BE 

21 50 

BISYNC 

DC 

X * 2150* 

006984 

1 1 8F 

2160 

SYN188 

DC 

X * 2160 1 


CHARACTER SIZE 

CHARACTER SIZE INCLUDING START AND STOP BITS 
CRC ACUMMULATOR 

DIVISORS FOR TICKS TO MILLSEC SUB-ROUTJNE 


FIRMWARE PRINT FLAG 
HIGH SPEED FLAG 
LINE FREQUENCY 

B I T S / S E C 

PARITY ERROR TEST FLAG 
PARITY TYPE FLAG 
SYNC. PRINT SPEED FLAG 

RECEIVE CRC RESIDUE 
RAM ADDRESS TO READ 
RANGE FOR READ FROM RAM 
OVERRUN AND UNDERRUN TEST FLAG 
TEMPORARY LOCATION 


STOP BIT TIME TEST FLAG 
TEST FLAG 

STOP I/O AND CHANNEL RESET FLAG 
BROADBAND TEST FLAG 
TRANSMIT CRC RESIDUE 

ERROR ARRAY FOR ZV$C 


DEFINED CONSTANTS 

ASYNC. ID 

ASYNC. ID NEW BAUD RATE 
CURRENT LOOP ASYNC. 
SYNC* ID 
BISYNC. ID 
SYNC. MIL 188 ID 
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006985 

11 CO 

21 38 



WD83 

DC 

X*2138* WIDEBAND WITH 301/303 



006986 

11 Cl 

21 30 



WD83B 

DC 

X * 2130* BI-SYNC. WIDEBAND WITH 

301 /303 

i j) 

006987 

11 C2 

21 68 



WD8V35 

DC 

X * 2168 1 WIDEBAND WITH V35 



006988 

1 1C3 

21 28 



WDBV5B 

DC 

X * 2128 * BI-SYNC. WIDEBAND WITH 

V35 


006989 





★ 





006990 

1 1 C4 

8000 



BITO 

DC 

Z * 8000 * 



006991 

1 1 C 5 

4000 



81T 1 

DC 

2*4000* 



006992 

1 1 C 6 

2000 



81T 2 

DC 

X * 2 000 * 



006993 

1 1 C 7 

0800 



BI T 4 

DC 

X * 800* 



006994 

1 1C8 

0200 



8IT6 

DC 

X*200* 



006995 

1 1C9 

01 00 



BIT 7 

OC 

X*100* 



006996 





★ 





006997 

1 1 C A 

AO 01 



CRC16 

DC 

Z * A 0 01 * 



006998 





* 





006999 

1 1 C 8 

0000 



ATLT 

RESV 

8*0 ACTIVE LINE TABLE 



007000 





* 





007001 

1103 

0000 



ADDRS 

RESV 

9*0 LINE ADDRESS TABLE 



007002 





* 


• 



007003 

1 1 DC 

01 17 



CPFLG 

DC 

X* 1 1 7-* LCT FLAG FOR CRC ONLY 



007004 

1 1 DO 

FO 1 7 




DC 

Z ' F017' PARITY ONLY 



007005 

1 1 DE 

0017 




DC 

X'017* CRC AND PARITY 



007006 

1 1 OF 

0000 




DC 

0 



007007 





* 





007008 

1 1 EO 

805C 



CRL F 

DC 

Z * 8 0 5 C * 



007009 

1 1E1 

2C00 



COMMA 

DC 

X * 2 C 00 * 



007010 

1 1 E2 

00 5C 



BKLS 

DC 

X * 5 C * 



007011 





* 





007012 

1 1 E3 

0001 

0203 

0405 

DOUT 

TEXT 

Z*000102030405060708090A0B0C0D0EOF* 




1 1 £6 

0607 

0809 

0 AOS 








OC OD 

OEOF 







007013 

1 1 E8 

1011 

1213 

1415 


TEXT 

Z*101112131415161718191A1B1ClD1ElF* 




1 1 EE 

1617 

1819 

1 A18 








1C ID 

1 E 1 F 







007014 

1 1 F3 

2021 

2223 

2425 

DO'JTI 

TEXT 

Z*202122232425262728292A2B2C2D2E2F* 




1 1 F6 

2627 

2829 

2 A2 8 








2C 2D 

2E2F 







007015 

1 1 F 8 

3031 

3233 

3435 


TEXT 

Z*303132333435363738393A3B3C3D3E3F* 




1 1 FE 

36 37 

38 39 

3 A3 B 








3C 3D 

3E3F 







007016 

1 203 

4041 

4243 

4 44 5 


TEXT 

Z*404142434445464748494A4B4C4D4E4F* 


"% 


1 206 

4647 

4849 

4 A 4 8 





1 i* '$ 



4C 4D 

4E4F 






y..y 

007017 

1208 

50 51 

5253 

5455 


TEXT 

Z* 50 51 5 2 535 45 5 56 57 5 8595A505C5D5E5F* 




120E 

56 57 

58 59 

5 A 5 8 








5C 50 

5E5F 







007018 

1213 

6061 

6263 

6465 


TEXT 

Z*606162636465666768696A6B6C6D6E6F* 




1216 

6667 

6869 

6 A6B 








6C 6D 

6E6F 







007019 

1218 

7071 

7273 

7475 


TEXT 

Z*707172737475767778797A787C7D* 




v.y 
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1 2 1 E 

76 77 7879 7A7B 







7C 70 





007020 

1222 

5 5 55 

DFLT 

DC 

X * 5 5 55 ' 

DEFAULT CHARACTER 

007021 



* 




007022 

1 223 

0000 

F IVSEC 

DC 

0 

5 SECONDS OF TICK ON RTC 

007023 

1 224 

0000 

SECL 

DC 

0 


007024 

1 225 

0000 

SECH 

DC 

0 


007025 



★ 




007026 

1 226 

0000 

FRIMRV 

DC 

0 

FIRMWARE REV NUMBER 

007027 



* 




007028 



* LINE SPEED IS IN SECOND WORD 

FOR LOW AND MEDIUM 

007029 



* SPEED LINES, FOR HIGH SPEED 

LINES THE TWO 

007030 



★ WORDS i 

ARE PUTTOGETHER FORMING A SINGLE HEX WORD 

007031 



* CONSISTING OF 32 BITS, 


007032 



★ 




007033 

1227 

0000 

SYLSPO 

RESV 

2/0 

SYNC, LINE 0 SPEED 

007034 

1 229 

0000 

SYLSP1 

R E S V/ 

2/0 

SYNC, LINE 1 SPEED 

007035 

1223 

0000 

SYLSP2 

RESV 

2/0 

SYNC, LINE 2 SPEED 

007036 

1 2 2 D 

0000 

SYLSP3 

RESV 

2/0 

SYNC, LINE 3 SPEED 

007037 

1 2 2 F 

0000 

SYLSP4 

RESV 

2/0 

SYNC, LINE 4 SPEED 

007038 

1231 

0000 

SYLSP5 

RESV 

2/0 

SYNC, LINE 5 SPEED 

007039 

1233 

0000 

SYLSP6 

RESV 

2/0 

SYNC. LINE 6 SPEED 

007040 

1235 

0000 

SYLSP7 

RESV 

2/0 

SYNC. LINE 7 SPEED 

007041 



★ 




007042 

1 237^ 

00 0A 

NSPTBL 

DC 

10 


007043 

1 238 

00 OF 


DC 

1 5 


007044 

1 239 

0016 


DC 

22 


007045 

1 2 3 A 

00 1B 


DC 

27 


007046 

1 2 39 

00 1E 


DC 

30 


007'047 

1 23C 

00 28 


DC 

40 


007048 

1 2 3D 

003C 


DC 

60 


007049 

1 23E 

0078 


DC 

120 


007050 

1 2 3 F 

OOD2 


DC 

210 


007051 

1240 

00 FO 


DC 

240 


007052 

1 241 

01 68 


DC 

360 


007053 

1 242 

01 90 


DC 

400 


007054 

1 243 

01 EO 


DC 

480 


007055 

1 244 

03 CO 


DC 

960 


007056 

1 245 

0780 


DC 

1920 


007057 

1 246 

OF 00 


DC 

3840 


007058 



★ 




007059 

1247 

00 OA 

OSPTBL 

DC 

10 


007060 

1248 

OOOF 


DC 

15 


007061 

1 249 

0016 


DC 

22 


007062 

1 24 A 

0018 


DC 

27 


007063 

1249 

00 1 E 


DC 

30 


007064 

1 24 C 

003C 


DC 

60 


007065 

1 24 D 

00 78 


DC 

120 


007066' 

1 24E 

00B4 


DC 

180 
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007067 

1 24 F 

00 F0 

DC 

240 







f 

007068 

1250 

0168 

DC 

360 







007069 

1251 

01 EO 

DC 

480 







007070 

1252 

02 DO 

DC 

720 








007071 

1253 

03 CO 

DC 

960 








007072 

1254 

05 AO 

DC 

1440 








007073 

1255 

0780 

DC 

1920 








007074 

1256 

0000 

DC 

0 








007075 



* 









007076 

1257 

00 32 

ALSPBL DC 

50 

OLD 

BAUD 

RATE 

LINE 

SPEED 

TABLE 


007077 

1258 

004B 

DC 

75 








007078 

1259 

006E 

DC 

110 








007079 

1 25 A 

0087 

DC 

135 








007080 

1258 

0096 

DC 

150 








007081 

1 25C 

01 2C 

DC 

300 








007082 

1250 

02 58 

DC 

600 








007083 

125E 

0384 

DC 

900 








007084 

1 2 5 F 

04 BO 

DC 

1200 








007085 

1260 

0708 

DC 

1800 








007086 

1261 

0960 

DC 

2400 








007087 

1 262 

0E10 

DC 

3600 








007088 

1263 

1 2 CO 

DC 

4800 








007089 

1 264 

1C 20 

DC 

7200 








007090 

1265 

25 80 

DC 

9600 








007091 



* 









007092 

1266 

0032 

CMSPBL DC 

50 

NEW 

BAUD 

RATE 

L INE 

SPEED 

TABLE 


007093 

1 267 

0048 

DC 

75 








007094 

1268 

006E 

DC 

110 








007095 

1269 

0087 

DC 

135 








007096 

126A 

0096 

DC 

150 








007097 

1 26B 

00C8 

DC 

200 








007098 

1 26C 

01 2C 

DC 

300 








007099 

1 26 D 

02 58 

DC 

600 








007100 

1 26E 

04 1A 

DC 

1050 








007101 

1 26 F 

04 BO 

DC 

1200 








007102 

1270 

0708 

DC 

1800 








007103 

1271 

07 DO 

DC 

2000 








007104 

1272 

0960 

DC 

2400 








007105 

1273 

1 2 CO 

DC 

4800 








007106 

1274 

2 5 80 

DC 

9600 







4 x 

007107 

1275 

4800 

DC 

19200 








007108 



★ 









007109 

1276 

0021 

SBITBL DC 

33 








007110 

1277 

00 1 E 

DC 

30 








007111 

1278 

0020 

DC 

32 








007112 

1279 

00 I E 

DC 

30 








0071 1 3 



★ 









0071 1 4 

12 7A 

0018 

TLTBLA DC 

X* 1 8 1 

SHOULD BE 

TABLE FOR 

DSS 

TO DSC LOOP AS TC* 


007115 

12 7B 

6078 

DC 

X * 6078* 
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007116 

1 27C 

8098 


DC 

Z 1 8098 1 

007117 

1 27D 

EO F8 


DC 

Z * E 0 F8 * 

007118 



* 



007119 

1 27E 

BOBO 

TLTBLC 

DC 

Z'BOBO* 

007120 

1 27F 

FQFO 


DC 

Z'FOFO' 

007121 

1 280 

BOBO 


DC 

Z'BOBO* 

007122 

1281 

FOFO 


DC 

Z'FOFO* 

007123 



* 



007124 

1 282 

0010 

TLTBLS 

DC 

X'10* 

007125 

1 283 

6070 


DC 

X * 6070 ' 

007126 

1 284 

8090 


DC 

Z* 8 0 90' 

007127 

1 285 

EOFO 


DC 

Z'EOFO' 

007-1 28 






007129 



*# 



007130 

1 286 

2020 

TLTBLM 

DC 

X ' 20 20 * 

007131 

1 287 

20 20 


DC 

X * 20 20 ' 

007132 

1 288 

AO AO 


DC 

Z'AOAO' 

007133 

1 289 

EO EO 


DC 

Z'EOEO' 

007134 






007135 



+ UU 



007136 



* 



007137 

1 2 8 A 

00 EO 

TLUWB3 

DC 

X ' E 0 ' 

007138 

1 28B 

10F0 


DC 

X'OJ 0F0 

007139 



★ • 



007140 

1 2 8C 

0060 

TLUV35 

DC 

X ' 6 0 * 

007141 

1 28D 

90 FO 


DC 

Z ' 90 FO ' 

007142 



* 



007143 

1 28E 

2020 

SPACE 

DC 

2*2020' 

007144 



★ 



007145 

1 2 8 F 

0020 

TLUTB2 

DC 

X * 20 * 

007146 

1 290 

4060 


DC 

X * 4 0 60 ' 

007147 

1 291 

0020 


DC 

X* 20 * 

007148 

1 292 

4060 


DC 

X * 4 060' 

007149 

1293 

0010 


DC 

X'10* 

007150 

1 294 

40 50 


DC 

X * 4 0 50 ' 

007151 

1295 

0010 


DC 

X'10' 

007152 

1296 

4050 


DC 

X * 4 0 50 ' 

007153 

1 297 

0000 


DC 

0 

007154 

1 298 

0040 


DC 

X * 4 0 * 

007155 

1 299 

0040 


DC 

X * 4 0 4 

007156 



★ 



007157 

1 2 9 A 

0001 

XMSB 

DC 

1 

007158 

1 29B 

0203 


DC 

X ' 0203 * 

007159 

1 29C 

F F 07 


DC 

Z'FF07* 

007160 

1 2 9 D 

0809 


DC 

X * 0 8 09 * 

007161 



* 



007162 

1 29E 

0001 

XSSB 

DC 

1 

007163 

1 2 9 F 

0203 


DC 

X '0 203 ' 

007164 

1 2 AO 

0007 


DC 

X '0007 * 


SHOULD BE TABLE FOR CURRENT LOOP ADAPT, 

SHOULD BE TABLE FOR DSS TO DSC LOOP SYNC. 

SHOULD BE TABLE FOR MODEM DSS TO DSC LOO 

SHOULD BE TABLE FOR BROADBAND 301 

SHOULD BE TABLE FOR BROADBAND V35 


XMIT MARK SHOULD BE 

XMIT SPACE SHOULD BE 
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007165 

1 2 A1 

08 09 


DC 

X 4 0809 * 

007166 



★ 



007167 

1 2 A 2 

0002 

C 2 

DC 

2 

007168 

1 2A3 

0004 

C 4 

DC 

4 

007169 

12A4 

0008 

C8 

DC 

8 

00,71 70 

1 2 A 5 

0010 

C 1 6 

DC 

16 

007171 

12A6 

0200 

HX200 

DC 

X 4 2 00* 

007172 

1 2 A 7 

04 00 

HX 400 

DC 

X 4 4 0 0 4 

007173 



* 



007174 



*.=.= = = = 


a-asa = = = = = = === = =: = -=: = = = = = = = =■= aaaasasassasaasaaaaaasaasassasaa 

007175 



* 



007176 



★ 


TRAP SAVE AREAS 

007177 



★ 



007178 

12A8 

12 BO 

TSAI 

DC 

<TS A 2 

007179 

1 2 A9 

0000 


RESV 

4+3*$AF/0 

007180 

1280 

12B8 

TS A 2 

DC 

<TS A3 

007181 

1 2 B1 

0000 


RESV 

4+3*$AF/0 

007182 

1288 

0000 

T S A 3 

RESV 

8/0 

007183 



★ 



007185 



* 



007186 



★ 


INTERRUPT SAVE AREAS 

007187 



★ 



007188 

12C0 

0000 

I S A 1 

RESV 

3 + S A F / 0 INTERRUPT SAVE AREA FOR LEVEL 1 <RTO 

007189 

1 2C4 

048C 

ISA1P 

DC 

<N0SPD- 

007190 

12C5 

6000 


DC 

X 4 6000 ' 

007191 



* 



007192 

12C6 

0000 

I S A 4 

RESV 

3+SAF/0 

007193 

1 2C A 

0368 

ISA4P 

DC 

<SPS YT1 

007194 

12 c a 

6000 


DC 

X 4 6000 4 

007195 

n H7 1 O A 



* 



uUf iyo 

007197 



★ 



007198 



★ 


LINE CONTROL TABLES 

007199 



★ 



007200 

12CC 

02 06 

LCT 

DC 

X 4 2 0 6 4 STARTING ADDRESS OF CHANNEL PROG. 

007201 

1 2CD 

0414 


DC 

X 4 4 1 4 4 RECV. LINE CONTROL SET TEST MODE 

007202 

12CE 

0000 


DC 

0 TABLE END 

007203 



* 



007204 

1 2 C F 

0206 

LCT1 

DC 

X 4 2 0 6 4 

007205 

1200 

04 26 


DC 

X 4 4 2 6 4 

007206 

1201 

C 8 02 


DC 

Z 4 C 802 4 

007207 

1 2 D 2 

C 8 22 


DC 

Z 4 C 822 4 

007208 

12 03 

0 F 1 8 

LCT 1 S 

DC 

X 4 F 1 8 4 

007209 

1204 

C 7 1 4 

LC1LCR 

DC 

Z 4 C 71 4 4 LINE CONTROL 

007210 

1205 

0000 

L C 1 S Y F 

DC 

0 SYNC. FLAG 

007211 

1 206 

0000 


DC 

0 END OF TABLE 

007212 



* 



007213 

1207 

02C6 

LCT2 

DC 

X 4 206 4 
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007214 

12D8 

0426 


DC 

007215 

1 2 09 

C8C2 

LC2C FR 

DC 

007216 

1 2 DA 

C 8 22 

LC2CFX 

DC 

00721 7 

! 2DB 

OF 18 

LCT 2 S 

DC 

007218 

1 2 DC 

C7 14 


DC 

007219 

1 2 D D 

01 17 

LCT2FG 

DC 

007220 

1 2 D E 

0000 


DC 

007221 



* 


007222 

1 2 D F 

02 06 

LCT3 

DC 

007223 

1 2 E 0 

04 26 


DC 

007224 

1 2 E 1 

C 0 02 

LC3C FR 

DC 

007225 

1 2E2 

C 0 22 

LC3CFX 

DC 

007226 

1 2E3 

0000 

LCT3S 

DC 

007227 

1 2E4 

C7 14 


DC 

007228 

1 2 E 5 

0000 

LC3SYF 

DC 

007229 

1 2E6 

0000 


RESV 

007230 



★ 


007231 

1 2 E 7 

0206 

LCT4 

DC 

007232 

1 2 E 8 

04 26 


DC 

007233 

1 2E9 

0002 

LC4CFR 

DC 

007234 

1 2 E A 

0022 

L C 4 C F X 

DC 

007235 

1 2E8 

0000 

LCT4S 

DC 

007236 

1 2 E C 

C 7 1 4 


DC 

007237 

1 2 E D 

0000 


RESV 

007238 



* 


007239 

1 ZEE 

02 06 

LCT5 

DC 

007240 

1 2 E F 

04 26 


DC 

007241 

1 2F0 

C802 


DC 

007242 

1 2 F 1 

C822 


DC 

007243 

1 2F2 

OF 18 

LCT5S 

DC 

007244 

1 2F3 

C 7 14 


DC 

007245 

1 2F4 

OF 10 


DC 

007246 

1 2 F 5 

OF 11 


DC 

007247 

1 2F6 

0000 

LC5SYF 

DC 

007248 

1 2F7 

0000 


DC 

007249 



★ 


007250 

12F8 

02 06 

LCT6 

DC 

007251 

1 2F9 

02 26 


DC 

007252 

1 2 F A 

6027 


DC 

007253 

1 2 F 8 

C 8 02 


DC 

007254 

1 2 F C 

C822 


DC 

007255 

12FD 

OF 18 

LCT6S 

DC 

007256 

1 2 F E 

C7 14 


DC 

007257 

1 2 F F 

02 ID 

LCT6TF 

DC 

007258 

1300 

01 25 


DC 

007259 

1301 

0000 


DC 

007260 



★ 


007261 

1302 

0206 

LCT7 

DC 

007262 

1 303 

0226 


DC 


X * 4 2 6* 

Z * C 802 * 

Z * C 822 * 

X * F 1 8* 

ZU/U 1 

X * 117* FLAG FOR TYPE OF SEND AND RECV 

0 

X* 206* RAM STARTING ADDRESS (RECV) 

X 4 4 2 6 4 RAM STARTING ADDRESS (XMIT) 

Z * C 002 * CONFIGURATION (RECV) 

Z 4 C 0 22 * CONFIGURATION (XMIT) 

0 SPEED IN SCRATCH LOCATION 

Z 4 C 714 4 LINE CONTROL (RECV) 

0 SYNC FLAG 

1/0 

X 4 206 4 
X 4 4 2 6* 

2 

X 4 2 2 4 
0 

Z 4 C 7 1 4 4 

no 

X 4 2 0 6 4 
X 4 4 2 6 4 
Z 4 C802 4 
Z 4 C 8 22 4 
X* FI 8* 

Z 4 C 7 1 4 4 

X 4 F10 4 LCT STATUS BYTES 

X 4 F 1 1 4 

0 SYNC. LINE FLAG 

0 

X 4 206 4 
X 4 22 6* 

X 4 60 27 4 
Z 4 C 8 02 4 
Z 4 C 8 22 4 
X 4 F 1 8* 

Z 4 C 7 1 4 4 
X 4 21 D* 

X 4 1 2 5 4 DISABLE PAUSE 

0 

X 4 206 4 
X 4 22 6 4 
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007263 

1 304 

C802 


DC 

Z ’C 802 * 


007264 

1305 

C822 


DC 

Z * C 822 * 


007265 

1306 

FC 1 D 

. LC7SM 

DC 

Z * F C 1 D * 

MASK TO CHECK BITSIFC-ASY. F8-SYC.) 

007266 

1307 

04 39 


DC 

X*4 39* 

TLU POINTER TABLE 1 

007267 

1308 

01 05 


DC 

X * 1 0 5 * 


007268 

13 09 

0125 


DC 

XM 25* 


007269 

130A 

0000 


RESV 

1/0 


007270 



* 




007271 

1308 

02 06 

LCT8 

DC 

X * 20 6' 


007272 

1 3 0C 

04 26 


DC 

X * 4 2 6 * 


007273 

1300 

C 8 02 


DC 

Z * C 8 02 ' 


007274 

1 30E 

C822 


DC 

Z * C 8 22 * 


007275 

1 30F 

C 5 18 


DC 

Z * C 5 18 * 


007276 

1310 

C 7 14 


DC 

Z * C 71 4 * 


007277 

1311 

0105 


DC 

X * 1 0 5 * 

DISABLE PAUSE 

007278 

1312 

01 25 


DC 

X*1 25’ 

DISABLE PAUSE 

007279 

1313 

0000 

LCT8FG 

DC 

0 


007280 

1314 

0000 


RESV 

1/0 


007281 



★ 




007282 

1315 

02 06 

LC T9 

DC 

X ’ 206’ 


007283 

1316 

04 26 


DC 

X’ 4 26* 


007284 

1317 

C 8 02 


DC 

Z *C 802 * 


007285 

1318 

€822 


DC 

Z* C822 ' 


007286 

1319 

00 00 

LCT9MS 

DC 

0 


007287 

1 31A 

C314 


DC 

Z * C 3 1 4 ' 


007288 

1318 

0000 


DC 

0 


007289 



★ 




007290 



* 




007 2 91 







007292 



★ 




007293 



★ 


FORMAT FOR DRIVER 

007294 



* 




007295 

1 31C 

0006 

WCP 

DC 

6 

RANGE OF PROGRAM IN BYTES 

007296 



★ 




007297 

1310 

OE 1 7 

WCP 1 

DC 

< C H L P1 

CHANNEL PROGRAM ADDRESS 

007298 

1 31 E 

0E2F 


DC 

< C H L P1 A 

XMIT CHANNEL PROGRAM ADDRESS 

007299 

1 3 1 F 

00 30 

RAG 1 

DC 

(CHLP1A-CHLP1)* 2 

RANGE OF CHANNEL PROGRAM 

007300 

1320 

003C 

RAG2 

DC 

(CHLP2-CHLP1A>*2 

RANGE OF PROGRAM IN BYTES 

007301 

1321 

0400 


DC 

X * 4 0 0 * 

RAM ADDRESS 

007302 



★ 




007303 

1322 

OE 4 D 

WCP2 

DC 

<CHLP2 

CHANNEL PROGRAM ADDRESS 

007304 

1323 

OE 75 


DC 

CCHLP2A 

XMIT CHANNEL PROGRAM ADDRESS 

007305 

1 324 

00 50 


DC 

(CHLP2A-CHLP2 >*2 

RANGE OF CHANNEL PROGRAM 

007306 

1325 

0060 


DC 

<CHLP3“CHLP2A)*2 

RANGE OF CHANNEL PROGRAM 

007307 

1326 

0400 


DC 

X * 4 00* 

RAM STARTING ADDRESS 

007308 



* 




007309 

1327 

OE A 5 

WCP3 

DC 

<C HLP3 


007310 

13 28 

OE C9 


DC 

< C H L P 3 A 


007311 

13 29 

0048 


DC 

(CHLP3A-CHLP3)*2 
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C 


007312 

1 3 2 A 

007E 




DC 

<CHLP4-CHLP3A>*2 

007313 

1323 

0400 




DC 

X * 400* 

007314 





★ 



007315 

13 2C 

OF 08 



WCP4 

DC 

<CHLP4 

007316 

1320 

OF 31 




DC 

<CHL P4 A 

007317 

132E 

0052 




DC 

<CHLP4A-CHLP4)*2 

007318 

1 32F 

0072 




DC 

(CHLP5-CHLP4A)*2 

007319 

1330 

0260 




DC 

X * 260* 

007320 





* 



007321 

1331 

00 54 



WCP5 

DC 

CCHLP6-CHLP5)*2 

007322 

1332 

0016 



WCP5B 

DC 

22 

007323 





★ 



007324 

1333 

OF 94 



WCP6 

DC 

<CHLP6 

007325 

1334 

OF 01 




DC 

CCHLP6A 

007326 

1335 

00 7A 




DC 

(CHLP6A-CHLP6)*2 

007327 

1336 

008E 




DC 

(CHLP7-CHLP6A)*2 

007328 

1337 

04 00 




DC 

X *400* 

007329 





★ 



007330 

1338 

1018 



WCP7 

DC 

< C H L P 7 

007331 

1339 

1031 




DC 

<CHL P7A 

007332 

1 3 3 A 

00 32 




DC 

(CHLP7A-CHLP7)*2 

007333 

1 338 

0032 




DC 

(CHL P8-CHLP7A)*2 

007334 

1 33C 

04 00 




DC 

X *4 00* 

007335 

1330 

0000 




RES V 

2*0 

007336 





★ 



007337 

1 3 3 F 

10 4A 



WCP8 

DC 

<CHLP8 

007338 

1 340 

108A 




DC 

<CHL P8A 

007339 

1341 

0080 




DC 

(CHLP8A-CHLP8)*2 

007340 

1 342 

00A8 




DC 

(CHLP9-CHLP8A )*2 

007341 

1343 

04 00 




DC 

X * 400* 

007342 





* 



007343 

1344 

10 DE 



WCP9 

DC 

<CHLP9 

007344 

1 345 

10 FI 




DC 

< C H L P 9 A 

007345 

1346 

0026 




DC 

CCHLP9A-CHLP9 )*2 

007346 

1 347 

003C 




DC 

(CHLP10-CHLP9A)*2 

007347 

1348 

04 00 




DC 

X *400' 

007348 





* 



007349 





* = = == = 


ii 

M 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

007350 





* 



007351 





★ 


CONSOLE MESSAGES 

007352 





* 



007353 

1349 

43 4C 

4120 

5445 

MESG 

TEXT 

* CL A TEST* 


1 34 C 

53 54 






007354 






IFZ 

($AF-2),PLAF 

007355 

1 34 D 

2020 

4443 

4 D 5 6 


TEXT 

* DCMVA,SAF-A * 


1350 

41 2C 

5341 

4 6 2 D 






41 20 






007359 

1354 

20 20 

2041 

5547 

SLAF 

TEXT 

* AUG 1 1 978$* 


1 357 

20 31 

2031 

3937 







TITLE 0 CM V A 


07/28/78 1733*9 edt Fri 


HRS ASSEMBLER 5,05 


PAGE 0128 


38 24 


007360 

135B 

41 53 

594E 

4348 

MESG2 

TEXT 

’ASYNCHRONOUS LINES* 


1 3 5 E 

52 4 F 

4E4F 

5553 






204C 

494E 

4 524 




007361 

1 364 

20 53 

5045 

4544 

MESG4 

TEXT 

* SPEED IS $* 


1367 

2049 

5320 

2024 




007362 

1 3 6 A 

2053 

484 F 

5 5 4 C 

MESG5 

TEXT 

’ SHOULD BE $* 


1 360 

44 20 

4245 

202 4 




007363 

1370 

4£ 45 

5854 

2024 

MESG6* 

TEXT 

•NEXT S’ 

007364 

1 373 

434C 

4120 

4348 

MESG7 

TEXT 

* CL A CHANNEL(S) $* 


1376 

41 4E 

4 E 4 5 

4 C 2 8 






53 29 

2024 





007365 

1 37B 

5041 

5353 

2400 

MESG8 

TEXT 

•PASSS* 

007366 

1 37E 

504F 

5745 

5220 

MESG9 

TEXT 

•POWER FREQ (HZ) $’ 


1381 

46 52 

45 51 

2848 






5A 29 

2024 





0073(67 

1386 

43 4F 

5059 

5249 


TEXT 

•COPYRIGHT 1978 BY HONEYWELL INFORMATION SYSTEMS INC 

1389 

4748 

5420 

3139 






37 38 

2042 

5920 






48 4F 

4E45 

5957 






45 4C 

4C20 

2049 






4E 46 

4 F 52 

4041 






5449 

4 F 4 E 

2053 






5953 

5445 

4053 






20 49 

4E43 

2 E00 




007368 

1 3A1 

46 49 

52 4 D 

574 1 

FREV 

TEXT 

’FIRMWARE REV.S* 


1 3 A 4 

52 45 
2E24 

2052 

4 556 




007369 

13A8 

2020 

2020 

2024 

ERMG 

TEXT 

• $« 

007370 

1 3 AB 

43 4C 

41 20 

4 E 4 F 

ERMG1 

TEXT 

*CLA NOT FOUND ON THIS CHANNEL $* 


1 3 A E 

54 20 

46 4 F 

5 54 E 






44 20 

4F4E 

2054 






4849 

5320 

4348 






41 4E 
2024 

4E45 

4 C 2 0 




007371 

1 3B8 

494E 

434F 

5252 

ERMG2 

TEXT 

•INCORRECT ID ON THIS CHANNEL $* 


1 3BE 

45 43 

5420 

4944 






204F 

4E20 

5448 






49 53 

2043 

4841 






4E4E 

2400 

454C 

2020 




007372 








007373 





*# 



007374 

13C8 

2042 

4 C 4 F 

4348 

MLMSG1 

TEXT 

f BLOCKS TRANSMITTED WITHS* 


1 3CE 

53 20 

5452 

4 1 4 E 






53 40 

4954 

5445 






44 20 
2400 

5749 

5448 




007375 

13D8 

2045 

5252 

4 F 5 2 

MLMSG2 

TEXT 

* ERRORSS* 



/if > 

y 


c 
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1 3 0 B 

5324 




007376 

1 3 DC 

8020 

MLCTRL 

DC 

2*8020' 

007377 



*# 



007378 



*UH 



007379 


13 DO 

V$L B 

EQU 

$ 

007380 

1 COO 



ORG 

ZERO+X*1 COO 

007383 


1C00 

DIN 

EQU 

$ 

007384 

1 DOO 



ORG 

DIN+X*100* 

007385 


1 D 00 

D I N1 

EQU 

$ 

007386 

1 30D 



ORG 

V$L B 

007387 



★ 



007388 

1 3 0 D 

01 00 


END 

DCMVA/STRT 


0000 ERR COUNT 




title 


dcmva# * 780 72 500 * 


mlcp line adapter test 


$af 


$b 1 


$b 2 


$b 3 


$b 4 


$b 5 


$b 6 


775 

776c 

784 

785c 

880 

1187 

1204 

1418 

1435 

1469 

1485 

1 654 

1671 

2151c 

2153c 

2171c 

2188c 

2207c 

2209c 

2221 c 

22 39 

2334c 

2367 

2387c 

2389c 

2390c 

2392c 

2394c 

24 03 

242 7c 

24 30 

2680c 

3014 

301 5c 

3019 

3020 

3024 

3030 

3031 

3035 

3037 

3042c 

3045 

3051 

3059 

3060 

6970 

6971 

6972 

69 73 

71 79 

7181 

7188 

7192 

7354 

7356 

7381 




4 08 

414 

596 

607 

621 

63 5 

648 

658 

6 95 

705 

712 

723 

733 

740 

750 

797 

804 

811 

833 

838 

843 

84 8 

85 3 

858 

863 

877c 

1041 

1051 

1058 

1068 

1118 

1 129 

1139 

1150 

1 1 60 

1167 

1 178 

1181 

1182c 

1183c 

11 84 

1 194 

1201 

121 1 

1 260 

1 349 

1360 

1370 

1381 

1391 

1398 

1 409 

141 2 

141 3c 

1414c 

1415 

1 425 

1432 

1442 

1495 

1500 

1 504 

153 8 

1585 

1 596 

1606 

1 61 7 

1627 

1634 

1645 

1648 

1 64 9c 

1650c 

1651 

1 661 

1 668 

1678 

1725 

1736 

1 746 

1759 

1 769 

1776 

1788 

1 798 

1805 

1815 

1956 

1967 

1977 

1991 

2001 

2008 

2022 

2032 

2039 

204 9 

21 50 

2151c 

2152 

21 53c 

2164 

2167 

2170 

21 71c 

21 72 

2175 

2183 

2188c 

2191 

21 94 

2197 

2206 

2207c 

2208 

2209c 

2210 

2215 

2220 

222 1 c 

22 22 

2227 

2236c 

2301 

2310 

2312 

231 2 

2364c 

2655c 

2865 

2 8 68 

2 895 

2896 

3030 

3 0 35 

3036c 

3064c 




366 

371 

407 

410 

488b 

489b 

490b 

491 b 

492b 

493b 

4 94b 

495b 

496b 

497b 

5 32b 

533b 

534b 

535b 

536b 

553b 

5 56b 

562b 

578b 

755b 

869b 

1073b 

1 229b 

1237 

1238 

1254 

1263 

1 280 

1307 

1458b 

1 509b 

1684b 

1821b 

2064b 

2229b 

2321 b 

2897 

2 900 

2976 

2982 

3019 

3023c 

3024 

3026c 

3050c 

3054 c 

30 60 

3063c 

3078b 








588b 

597b 

608b 

636b 

649b 

696b 

713b 

724b 

741b 

763b 

799b 

806b 

81 3b 

834b 

839b 

844b 

849b 

854b 

859b 

864b 

881b 

1 034b 

1042b 

1059b 

1 1 01b 

1119b 

1 130b 

1 1 51b 

1 1 68b 

1185b 

1 202b 

1 259 

1306 

1310 

1 334b 

1 350b 

1361b 

1382b 

1399b 

1416b 

14 33 b 

1 466b 

1497b 

1 501b 

1 505b 

1 570b 

1 586b 

1 597b 

1618b 

1635b 

1652b 

1 669b 

1714b 

1726b 

1 7 37 b 

1760b 

1 777b 

1 789b 

1806b 

1943b 

19 57b 

1 968 b 

1992b 

2009b 

2023b 

2040b 

2148b 

2165b 

2168b 

2173b 

21 92b 

2195b 

2198b 

2211b 

2216b 

22 2 3b 

2228b 

2240b 

2288b 

2302b 

2368b 

2 375 

2375 

2377 

2399 

2420 

2424 

2424 

2425 

2543b 

25 87 

2 597 

2621 

3029 

3036c 

3041 

3042c 

3064c 



367 

368c 

369 

370c 

440b 

509b 

517b 

773 

774c 

775 

7 76c 

781 

782c 

784 

785c 

819 

820c 

890b 

891b 

894b 

934b 

943b 

952b 

954b 

978b 

996b 

1016b 

1 269b 

1313b 

1467 

1468c 

1 469 

1470c 

1482 

1 483c 

1 485 

1486c 

1690b 

1698b 

182 9 b 

1831b 

1 835b 

1843b 

1 84 4 b 

1 847b 

1 850b 

1863b 

1871b 

2079 b 

2090b 

2241b 

2260b 

2266b 

2374b 

2 3 76 b 

2382b 

2386 

2387c 

2388 

2389 c 

24 06b 

241 4b 

2442b 

2451 b 

2465b 

2472b 

2602b 

2658b 

2668 

2676b 

2679 

2680c 

2682b 

2692b 

2699b 

2808b 

2817b 

2823b 

2850b 

2855b 

28 75b 

2937b 

2961b 

2980b 

2986b 

3018 

3025 

3050c 

3062 

3063c 

4 25 

428 

430c 

457b 

506b 

514b 

523b 

879b 

902b 

907b 

916b 

924b 

938b 

1006 

1 007c 

1022 

1 023c 

12 79 

1 325b 

1557 

1 5 58c 

1 857b 

2238b 

2251 b 

2 2 55b 

2264b 

2329 

2333 

2334c 

2366b 

2377 

2 386 

2388 

2390c 

2391 

2391 

2392c 

2393 

2393 

2394c 

2399 

2400c 

2402b 

2425 

24 26c 

2427c 

2429b 

2434b 

2446b 

2455b 

2481b 

2 687b 

2697b 

2726b 

2767b 

2779b 

2781b 

2821 b 

2865 

2872b 

2895 

2 904 

2904 

2906b 

2925b 

2976 

2977 

2992b 

3022 

3023c 

441b 

798 

805 

81 2 

817 

905 

1 078b 

1082b 

1108 

1109 

12 16 

1 225 

1226 

1 282b 

1 288b 

1 296b 

1 304 

1496 

1878b 

1884b 

1892b 

2072b 

2098b 

2294 

2310 

2346b 

2350b 

2552b 

2581 

2734 

2796 

2 800 

2802 

2940 

2942 

2946b 

3014 

3015c 

301 7 

3026c 


30 53 3 054c 



Sb 7 


$r 1 


Sr 2 


Sr 3 


Sr 4 


5 20b 

525b 

937b 

951b 

9 5 7b 

1323b 

1 51 7b 

1520b 

1 556b 

1 693b 

1 8 53b 

1 867b 

1875b 

1890b 

1 898b 

2097b 

2 106b 

211 2b 

2263b 

2269b 

24 45b 

2 454b 

2469b 

2475b 

2 507b 

3014 

3058b 




330 

331 

371 

372b 

373 

388c 

39 3 

394c 

406c 

410 

427 

429 

430c 

883c 

919c 

1899 

1 900c 

1901 

1902 

1 903 

1920c 

1 921 

1926 

1927 

1 930c 

2616 

2617c 

2707c 

2710 

2715 

2745 

2 756 

2762 

2866c 

2868 

3012 

3055b 




365c 

371 

392c 

393 

409 

431b 

884c 

905 

982c 

985 

2312 

2 584c 

2592 

2593 

2 595 

2802 

2832 

2868 

2870b 

2876 

3 83 

384 

385 

386c 

439 

939c 

98 8 

1697c 

1828c 

1 838b 

22 78 

2 365 c 

241 2c 

2433c 

2439c 

2583c 

2 587 

2597 

2667 

2 751 

28 98 

2900 

2902c 

2903 

2 958 

3011c 

301 3c 

3029 

3032 

3040c 

3 79 

386c 

410 

413b 

414 

4 58 

459 

462c 

465 

467 

486 

487c 

510 

51 1 

512c 

545 

546c 

548 

54 9c 

554 

586 

587c 

61 9 

620c 

621 

658 

659 

663 

664 

668 

677c 

678 

67 9 c 

683 

684 

750 

751 

761 

762c 

764 

7 70 

771 

772c 

778 

779c 

815 

816c 

823 

824c 

825 

892 

896 

897 

898c 

905 

921c 

933 

935 

942 

949 

9 73 

980' 

981c 

983 

984 

1051 

1 052 

1068 

1069 

1 099 

1 1 C9 

1110c 

1139 

1140 

1 1 60 

12 16 

1 217b 

1218 

1219 

1 221 

1239 

1 24 0 

1241c 

1245 

1 247 

1263 

1 264 

1265 

1266 

1 267c 

1302c 

1 307 

1308 

1332 

1 333c 

1341c 

1 34 3 

1344c 

1370 

1 371 

14 43 

1 448 

144 9 

1451c 

1 452 

14 74 

1 475c 

1476 

1477c 

1 4 79 

14 94 

1 499 

1 503 

1 51 5 

1518 

1541 

1 544 

1 54 5c 

1546 

1 547c 

1 5 75c 

1 576 

1577c 

1 606 

1 607 

1679 

1 71 2 

1713c 

1718 

1 719c 

1 7 54c 

1 769 

1 770 

1 798 

1 799 

18 64 

1 870 

1872 

191 0 

1911 

1917 

1 925 

1927 

1 941 

1 942c 

19 78 

2001 

2002 

2020 

2021c 

20 59c 

2078 

2080 

2089 

2091 

21 57c 

2178 

2179 

2181 

2 1 84 

2 2 04 

2205c 

224 5 

2246 

2247c 

2289 

2290c 

2292 

2295c 

2315 

2343 

2 344 

2371 

2372 

2 380 

24 13 

241 5 

2420 

242 1 c 

2 422 


977b 

1088b 

1091b 

1277b 

1319b 

1696b 

1701b 

1 704b 

1 834b 

1837b 

1919b 

1929b 

2082b 

2085b 

2093b 

2276b 

2341b 

2357b 

2410b 

2418b 

2522b 

2695b 

2820b 

2853b 

2990b 

374 

377 

378 

383 

387 

411 

41 8c 

419 

420 

424 

941c 

960b 

1017c 

1018b 

1020b 

1 904c 

1 905c 

1909 

1913 

191 7 

1931 

2582c 

2590c 

2592 

2594b 

2720 

2734 

2735 

2737 

2738 

2869c 

291 5 

2916c 

291 7 

291 9 

414 

416b 

423 

428 

430c 

1 527c 

1 530 

1 536c 

1715 

2300 

2600c 

2619c 

2621 

2655c 

2734 

2396 

2900 

2977 

2987 


505c 

876c 

906c 

910c 

932c 

1 839c 

1 869c 

2071 c 

2086c 

2237c 

2448c 

2463c 

2471 c 

25 26c 

2549 

2774 

2775c 

28 02 

2803c 

2894 

2959 

2 960 

3008 

3009 

301 0 

3041 

3049c 

3051 



426 

428 

429 

446 

44 7c 

471 

473 

475 

477 

481 

516 

518 

529 

530c 

531c 

555c 

568 

569 

584 

585c 

622 

628 

629c 

646 

647c 

669 

670 

674 

675c 

676 

686 

705 

706 

733 

734 

765 

766 

767c 

768 

769c 

789 

790c 

796 

803 

810 

826c 

827 

885c 

887 

888 

911b 

91 2c 

913 

915 

920 

953 

95 5 

963 

964 

971 

997 

998c 

1021 

1032 

1 033c 

1 100c 

1104 

1105c 

1 1 06 

1107c 

1161 

1194 

1195 

1211 

1212 

1 222c 

1223 

1224c 

1226 

1238 

1249 

1 251 

1 252c 

1254 

1255 

1292 

1 293 

12 94c 

1300 

1301 

1336 

1 337c 

1338 

1 339c 

1340 

1 391 

1392 

1425 

1426 

1442 

1 453c 

1 464 

1 465c 

1472 

1473 

1 480c 

1 490 

1491 c 

1492 

14 93 c 

1532 

1 533c 

15 34 

1 535c 

1537 

1 568 

1 569c 

1572 

1 573c 

1574 

1627 

1 628 

1661 

1662 

1678 

1 746 

1 74 7 

1751 

1 752c 

1753 

181 5 

1816 

1849 

1851 

1862 

1912 

1913 

1914 

1915c 

1916 

1 947 

1 948c 

1950 

1951c 

1977 

2032 

203 3 

2049 

2050 

2058 

2146 

2147c 

2154 

2155c 

2156 

21 85c 

2189 

2190c 

2202 

2203c 

2254 

2259 

2261 

2286 

2287c 

2316 

2319 

2320c 

2330 

2331 

2383 

2384 

2385c 

2405 

2407 

2441 

2443 

24 50 

24 52 

2581 



7001 
1032 
5 368 
5398 
5341 
5522 
426 
7076 
1078 
1083 
1089 
1092 
6930 

6979 

6980 

6981 

6999 

5162 

6672 

2549 

6412 

6391 

6432 

4306 

5255 

5362 

5058 

6547 



2595 

2 621 

2633 

2634c 

2639c 

2640c 

2642 

2644c 

2645c 

2647 


2648 

2650c 

2651 

2653 

2654 

2675 

2677 

2681 

2683 

2684c 


2691 

2693 

2707c 

2708 

2709c 

2710 

2711 

2712 

2713 

2714c 


2715 

2 716 

271 7 

271 8 

2 719 c 

2720 

2721 

2722 

2723 

2741 


2754 

2761 

2797 

2798 

2816 

2818 

2833 

2840 

2849 

2851 


28 74 

2 876 

2936 

2938 

2 939c 

2940 

2941c 

2942 

2943c 

2959 


29 78 

2 979 

2982 

2985 

2987 

2999 

3000c 

3004 

3005c 


$r 5 

3 78 

379 

380 

381 

398c 

912c 

920 

921 c 

955 

958 


965c 

1 01 9 

1079 

1080c 

1 2 74 

1283 

1 284c 

1285 

1286c 

1316 


13 17 

1320 

1321 

1521 

1 522 

1 524c 

1 525 

1526c 

1538 

1539 


1691 

1 694 

1699 

1702 

1 832 

183 6b 

1 840c 

1845 

1851 

1877c 


1879 

1 880c 

1881 

1882c 

2073 

2074c 

2080 

2083 

2091 

2095 


2267 

2273 

2338 

234 7 

2 348c 

235 4 

2355 

2438 

2440c 

2447c 


2467 

2473 

2499 

2500 

2504 

2511 

251 2 

2519 

2549 

2550 


2551 

2587 

2590c 

2591 

2 597 

2618c 

2638 

2641 

2643 

2646 


2738 

2755c 

2756 

275 7 

2 758 

2764 

2832 

2851 

2978 

2982 

$r 6 

3 38c 

341c 

342c 

348c 

349c 

1275 

1 305 

1315 

1317 

1321 


22 74 

2339 

2466 

2505 

2 520 

2 585c 

2586c 

2596b 

2598 

2624 


2625 

2627c 

2628 

2630 

2 6 32 

2633 

2634c 

2654 

2655c 

2733c 


2743c 

2 74 8b 

2787 

2789 

2 790c 






$r 7 

3 39 

340 

343 

344c 

345 

346 

347c 

350 

351 

352 


3 53c 

362c 

434 

456 

591 

630 

680 

688 

931 

944 


945c 

94 7 

975 

979c 

1037 

1111 

1112c 

1113 

1144 

1145c 


1 1 46 

1 261 

1262 

1 276 

1311 

1 342 

1 375 

1 376c 

1377 

1578 


1 5 79c 

1 580 

161 1 

1612c 

1613 

172 0 

1755 

1 787 c 

1856 

1949 


1983 

1 984c 

1985 

1 986c 

1987 

2160 

2275 

2296 

2340 

2440 c 


2447c 

2 506 

252 1 

2588 

2 589c 

2599b 

2 620c 

2656b 

2690c 

2739 


2740 

2 741 

2744 

2745 

2 746 

2 752 

2753 

2754 

2755 c 

2759 


2 7 60 

2 761' 

2762 

2763 

2 764 

2765c 

2785 

2786c 

2815c 

2923b 


2975 

2981b 

2983 c 








ad dr s 

364 

366 

393 

424 







ad rt s t 

4 90b 










a 176 

5389 

5 390 

5391 








a l 77 

53 85 

5386 

5387 








aid 

5333 

5334 

5335 








aldl 

5422 

5423 

5424 

5461 

5462 

5463 





al l 

4 31b 










alspb l 

2796 










ar ck 

2484b 










ar ck 1 

1080c 










ar ck2 

1087b 










ar ck 3 

1090b 










ar fg 

10 36c 

2483 

2540c 








as yn 

596 

635 

797 

1118 

1 349 

1 495 

1 539 

1585 

1725 

1956 


21 64 

2301 









as yn 1 

607 

64 8 

804 

1129 

1 360 

1 500 

1 596 

1736 

1967 

2167 

as ync 

622 

659 

811 

888 

1 140 

1371 

1 504 

1607 

1747 

1978 


21 72 

2294 

2372 








at It 

361 

386 c 

407 

2897 







b 1 

51 52 

5153 

5154 








ba mb 

6615 

6616 

661 7 








base 

10 78b 

1 282b 

1878b 

2072b 

2 346b 






bb c r 

6380 

6 381 

6383 

6423 

6424 

6425 

6429 

6430 

6434 


bbpc r 

6403 

6404 

6406 

6408 

6409 

6410 





bbpr 

6388 

6389 

639 3 

6444 

64 45 

6447 

6449 

64 50 

6451 


beg 

44 16 

441 7 

4422 

, 







be py 

5243 

5 244 

524 5 








bepy 1 

53 51 

5352 

5354 








bepy 3 

5088 

5089 

5090 








bi nta 

65 24 

6525 

65 2 9 

6535 

6536 

65 3 7 







/f" 

y 





6983 

b i s y n c 

7 06 

833 

1161 

1392 

1 628 

1770 

2002 

2191 



6990 

bi tO 

4 08 

2677 

281 8 








6991 

b i 11 

518 

935 

949 

2261 

2443 

24 52 

2693 




6992 

b i 12 

1715 










6993 

bi t4 











6994 

bi t6 











6995 

b i t 7 

18 64 

1 872 

2407 

241 5 







7010 

bk l s 

2791 

2793 

3022 

3025 







2732 

bp s 

2781b 










2739 

bpsl 

27 36b 










2750 

bp s2 

2748b 










2749 

bp s 2a 

2747b 










5015 

bu f e 

5023 

5024 

5026 








6931 

by tp 

792c 

821 c 

2776 








7170 

cl 6 

361 










7167 

c2 

2206 










7168 

c4 

21 52 

2335 









7169 

c 8 

3 64 










541 

c a b l p 

4 68b 

472b 

474b 

575b 

5 79b 






409 

car 

415b 










4576 

cd ty 

4 5 66 

4 567 

4569 








2958 

eg sc h 

5 17b 

934b 

94 3b 

954b 

1 8 50b 

1 863b 

1871b 

2079b 

2090b 

2260b 



24 06b 

241 4b 

2442b 

2451 b 

2676b 

2682b 

2692b 

2817 b 

2850b 

2875b 



2937b 

2980b 

2986b 








6932 

chant 

362c 

388c 

420 

43_4 







3087 

chip 

2668 










3118 

eh tpl 

8 99 

7 29 7 

7299 








6713 

chtpIO 

73 46 










3241 

c h l p 1 a 

9 00 

7298 

7299 

7300 







3386 

eh lp2 

7300 

7303 

7305 








3581 

ehlp2a 

73 04 

7305 

7306 








3803 

ch Ip3 

73 06 

7309 

731 1 








3982 

ehlp3a 

7310 

731 1 

731 2 








4268 

c h l p 4 

7312 

731 5 

731 7 








4471 ' 

eh lp4a 

73 16 

731 7 

731 8 








4735 

eh lp5 

22 48 

7318 

732 1 








4927 

eh lp6 

73 21 

7 324 

7326 








5217 

c hlp6a 

73 25 

7326 

732 7 








5553 

eh lp7 

73 27 

7330 

7332 








5679 

eh Ip7a 

73 31 

7332 

7333 








5799 

ch lp8 

73 33 

7337 

7339 








6109 

c h tp8a 

73 38 

7339 

7340 








6484 

chtp9 

7340 

7 34 3 

734 5 








6576 

ehlp9a 

7344 

7345 

7346 








3102 

chips 

26 79 










6934 

eh nz 

512c 

51 3 

898c 

899 

900 

2247c 

2248 

2249 

2385c 

2396 



2397 

2684c 

2686 

2939c 

2 944 






1251 

c h r f 1 

12 48b 










5040 

c h r t 

5027 

5028 

5032 








1456 

c h s z d e 

14 50b 










6933 

eh sz f g 

13 35c 

1 457c 

2509 

254 1 c 

2622 






1342 

c h s z 11 

1 4 54b 










1332 

c h s z t d 

4 92b 










1282 

ckcrc 

12 56b 










3171 

ck ff 

31 62 

3163 

3165 








1311 

ckpc r 

1309b 










1279 

c k pt y 2 

1 2 73b 










2535 

c l f g 

588b 

763b 

1034b 

1101b 

1 334b 

1 466b 

1 570b 

1714b 

1 943b 

2148b 



2288b 










6578 

cl rk 

6683 

6 68 4 

6685 










7092 

cm spb t 

2800 




5 481 

cnt 

5508 

5 50 9 

551 5 


7009 

comma 

27 92 




406 

con3 

3 72b 




423 

co n3a 

412 b 




6935 

count 

484c 

546c 

563c 

564 

6927 

co un 11 

5 55c 

557 c 

558 


338 

co 40 

3 32b 




2615 

coar 

12 69b 




2651 

cpar 1 

26 49b 




2621 

co ar 2 

2656b 




2634 

co ar 3 

2623b 

2626b 



2632 

cpar4 

26 29b 




2633 

c p a r 5 

2631b 




3702 

cpcrc 

36 74 

3675 

3676 

3715 

7003 

co f Ig 

3 61 

1 108 

1225 

2 5.15 

3719 

cppar 

3682 

3683 

3684 

3732 

6001 

cprt 

5877 

5 878 

5880 


6369 

cprtx 

6309 

6 310 

631 2 


2580 

crc 

1313b 




6997 

cr c 1 6 

1304 




2590 

crca 

2596b 

2 599b 



6938 

cr ca c 

1315 

2600c 



2596 

cr cb 

2 5 94b 




6939 

cr cf g 

11 02c 

1 228 c 

1447c 

1 456c 

7008 

c r l f 

3017 

3053 



1252 

crpr 1 

12 50b 




1254 

c r pr 2 

1 246b 




1236 

crprt 

24 81b 




1099 

crptb 

491b 

534b 



1110 

c r p t b 1 

12 17b 

1 227b 



1228 

crptb2 

12 20b 




6936 

c s 

1241c 

1 305 

251 2 

261 6 

6937 

c s b 

790c 

826c 

981c 

998c 

414 

c y n 

4 16b 





dcmva 

1 

7 388 



6609 

den w 

65 86 

6 58 7 

6589 


391 

de vn f 

3 76b 

382b 



7020 

df it 

601 

61 2 

700 

71 7 



11 89 

1 206 

1354 

1365 



1622 

1 639 

1656 

1673 



2044 

2 370 



7383 

di n 

9 17 

92 5 

1271 

191 7 



2488 

2 516 

7381 

7384 

7385 

di nl 

1260 

1 271 

1310 

251 5 

6940 

d i vl 

344c 

2708 



6941 

di v2 

3 47c 

2 71 1 



6942 

di v3 

348c 

2 716 



6943 

di v4 

3 53c 

2 721 



4420 

dl ay 

45 78 

4 579 

4580 

4624 

7012 

dout 

6 01 
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Z VSCTL 

1879 

Z V$B1 

19B4 

Z VSTST 

1 AE9 

Z VSMD C 

1 ABD 

Z V$R99 

1 CBB 

Z VSISA 

1 897 

Z VSUIH 

1892 

Z VSZRO 

1916 

Z VSBSH 

1918 

Z VSCPU 

1878 

Z V $R 5 0 

18F6 

ZVSR60 

1 901 

Z VSRT 

1BF8 

Z V/SALL 

1877 

★MLCHPG 

1 CCO 

MLCHPG 

1CC0 

E NDCHP 

1 C F 1 


T + V 


* *UN CEF 
S TRTD2 


**UNLINK MODULE(S) 
Z V SQC 
Z V $ ID 
Z V STC 
ZV STD 
Z V SCO 
Z V SMLR 


ZV $THZ 



( 






